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