mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

tweak intro

Browse source
This commit is contained in:
Joey Hess 2012-07-29 22:11:01 -04:00
parent 675ad9fe22
commit 895b068e35
3 changed files with 16 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Assistant/Threads/WebApp.hs
View file

@ -27,6 +27,7 @@ import Utility.DataUnits
import Types.Key
import qualified Remote
import Logs.Web (webUUID)
import Annex.UUID (getUUID)
import Yesod
import Yesod.Static
@ -169,11 +170,11 @@ introDisplay :: Text -> Widget
introDisplay ident = do
webapp <- lift getYesod
let reldir = relDir webapp
remotelist <- liftIO $ runThreadState (threadState webapp) $
Remote.prettyListUUIDs
=<< filter (/= webUUID) . nub . map Remote.uuid
<$> Remote.remoteList
let n = (length remotelist) + 1 -- plus this one
remotelist <- liftIO $ runThreadState (threadState webapp) $ do
u <- getUUID
rs <- map Remote.uuid <$> Remote.remoteList
Remote.prettyListUUIDs $ filter (/= webUUID) $ nub $ u:rs
let n = length remotelist
let numrepos = show n
let notenough = n < 2
let barelyenough = n == 2