diff options
author | 2012-07-30 18:18:53 -0400 | |
---|---|---|
committer | 2012-07-30 18:18:53 -0400 | |
commit | 254c174bba261a14ebd75e9fefae823a8a0f3d88 (patch) | |
tree | 707239f4b87d88e5306420d0d01f3d579a3ca9f9 /Assistant/Threads/WebApp.hs | |
parent | d1358cc96f2e719a90e2192a24e61c57ce9ed50c (diff) |
fix transfers display logic
Diffstat (limited to 'Assistant/Threads/WebApp.hs')
-rw-r--r-- | Assistant/Threads/WebApp.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index e75870e0d..fac2cf1ea 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -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]) |