From 7dc02b0c91de590ddca2ce98977a662b79f05e4c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 25 Nov 2013 12:54:59 -0400
Subject: [PATCH] lifyH getYesod, to work with older version

---
 Assistant/WebApp/Control.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Assistant/WebApp/Control.hs b/Assistant/WebApp/Control.hs
index 117547390b..93db2649ad 100644
--- a/Assistant/WebApp/Control.hs
+++ b/Assistant/WebApp/Control.hs
@@ -39,7 +39,7 @@ getShutdownConfirmedR = do
 		ts <- M.keys . currentTransfers <$> getDaemonStatus
 		mapM_ pauseTransfer ts
 	page "Shutdown" Nothing $ do
-		webapp <- getYesod
+		webapp <- liftH getYesod
 		let url = T.unpack $ yesodRender webapp (T.pack "") NotRunningR []
 		{- Signal any other web browsers. -}
 		liftAssistant $ do