From 254c174bba261a14ebd75e9fefae823a8a0f3d88 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 30 Jul 2012 18:18:53 -0400
Subject: [PATCH] fix transfers display logic

---
 Assistant/Threads/WebApp.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs
index e75870e0d7..fac2cf1eab 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])