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

fix transfers display logic

Browse source
This commit is contained in:
Joey Hess 2012-07-30 18:18:53 -04:00
parent d1358cc96f
commit 254c174bba
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Assistant/Threads/WebApp.hs
View file

@ -163,11 +163,9 @@ transfersDisplay warnNoScript = do
if null transfers
then ifM (lift $ showIntro <$> getWebAppState)
( introDisplay ident
, noop
, $(widgetFile "transfers")
)
else do
lift $ modifyWebAppState $ \s -> s { showIntro = False }
$(widgetFile "transfers")
else $(widgetFile "transfers")
transfersDisplayIdent :: Text
transfersDisplayIdent = "transfers"
@ -188,6 +186,7 @@ introDisplay ident = do
let barelyenough = n == 2
let morethanenough = n > 2
$(widgetFile "intro")
lift $ modifyWebAppState $ \s -> s { showIntro = False }
where
counter = map show ([1..] :: [Int])