more build fixes (remove phantom shutdown page)

Assistant/WebApp/Control.hs

@@ -38,8 +38,7 @@ getShutdownConfirmedR = do
 		 - the transfer processes). -}
 		ts <- M.keys . currentTransfers <$> getDaemonStatus
 		mapM_ pauseTransfer ts
-	page "Shutdown" Nothing $ do
-		webapp <- liftH getYesod
+	webapp <- getYesod
 	let url = T.unpack $ yesodRender webapp (T.pack "") NotRunningR []
 	{- Signal any other web browsers. -}
 	liftAssistant $ do