diff options
author | 2012-07-30 13:31:19 -0400 | |
---|---|---|
committer | 2012-07-30 13:31:19 -0400 | |
commit | 1f671ee40c7f26d0adb16408ba1cf7fc9ceb3a7a (patch) | |
tree | a32a226037653036b34e8481c3f531e02daa414a /Assistant/Threads/WebApp.hs | |
parent | 9c9db6feb8e732887838337e700c33e6033cd192 (diff) |
spruce up display of the repo list
Diffstat (limited to 'Assistant/Threads/WebApp.hs')
-rw-r--r-- | Assistant/Threads/WebApp.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index 5349ec2a4..44fb44f2b 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -171,17 +171,20 @@ introDisplay :: Text -> Widget introDisplay ident = do webapp <- lift getYesod let reldir = relDir webapp - remotelist <- liftIO $ runThreadState (threadState webapp) $ do + l <- liftIO $ runThreadState (threadState webapp) $ do u <- getUUID rs <- map Remote.uuid <$> Remote.remoteList rs' <- snd <$> trustPartition DeadTrusted rs Remote.prettyListUUIDs $ filter (/= webUUID) $ nub $ u:rs' - let n = length remotelist + let remotelist = zip counter l + let n = length l let numrepos = show n let notenough = n < 2 let barelyenough = n == 2 let morethanenough = n > 2 $(widgetFile "intro") + where + counter = map show ([1..] :: [Int]) {- Called by client to get a display of currently in process transfers. - |