fun with exec

This commit is contained in:
Joey Hess 2013-07-23 17:31:51 -04:00
parent e55cc75e67
commit 54e0bd55b4
7 changed files with 7 additions and 7 deletions

View file

@ -54,7 +54,7 @@ getRestartR = page "Restarting" Nothing $ do
error "restart failed"
$(widgetFile "control/restarting")
where
restartcommand program = program ++ " assistant --stop; " ++
restartcommand program = program ++ " assistant --stop; exec " ++
program ++ " webapp"
getRestartThreadR :: ThreadName -> Handler ()