diff --git a/Assistant/WebApp/Control.hs b/Assistant/WebApp/Control.hs
index 8c28ff3a7c..efac701521 100644
--- a/Assistant/WebApp/Control.hs
+++ b/Assistant/WebApp/Control.hs
@@ -53,7 +53,7 @@ getShutdownConfirmedR = do
 		threadDelay 2000000
 		signalProcess sigTERM =<< getProcessID
 #else
-	liftIO exitSuccess
+	void $ liftIO exitSuccess
 #endif
 	redirect NotRunningR