lifyH getYesod, to work with older version

2013-11-25 12:54:59 -04:00 · 2013-11-25 12:54:59 -04:00 · 7dc02b0c91
commit 7dc02b0c91
parent 46ee2ea2e6
1 changed files with 1 additions and 1 deletions
--- 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