some hamlet versions do not support nested tuples

Assistant/WebApp/RepoList.hs

@@ -118,8 +118,8 @@ repoListDisplay reposelector = do
   where
 	ident = "repolist"
 
--- (num, name, (uuid, actions))
+-- (num, name, uuid, actions)
-type RepoList = [(String, String, (UUID, Actions))]
+type RepoList = [(String, String, UUID, Actions)]
 
 {- A numbered list of known repositories,
  - with actions that can be taken on them. -}
@@ -179,10 +179,11 @@ repoList reposelector
 		val iscloud r = Just (iscloud, (u, DisabledRepoActions $ r u))
 	list l = liftAnnex $ do
 		let l' = nubBy (\x y -> fst x == fst y) l
-		zip3
+		l'' <- zip3
 			<$> pure counter
 			<*> Remote.prettyListUUIDs (map fst l')
 			<*> pure l'
+		return $ map (\(num, name, (uuid, actions)) -> (num, name, uuid, actions)) l''
 	counter = map show ([1..] :: [Int])
 
 getEnableSyncR :: UUID -> Handler ()

templates/configurators/intro.hamlet

@@ -13,7 +13,7 @@
         \ with these repositories:
         <table .table .table-striped .table-condensed>
           <tbody>
-            $forall (num, name, _) <- repolist
+            $forall (num, name, _, _) <- repolist
               <tr>
                 <td>
                   #{num}

templates/configurators/repositories/list.hamlet

@@ -11,7 +11,7 @@
         Repositories
   <table .table .table-condensed>
     <tbody #costsortable>
-      $forall (_num, name, (uuid, actions)) <- repolist
+      $forall (_num, name, uuid, actions) <- repolist
         <tr .repoline ##{"costsortable_" ++ fromUUID uuid}>
           <td .handle>
             <i .icon-resize-vertical></i>