fix transfers display logic

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])