stackbuilders/hapistrano
1
1
Fork 0
mirror of https://github.com/stackbuilders/hapistrano.git synced 2024-12-28 22:46:22 +03:00
Code Issues Projects Releases Wiki Activity

Restart after deploy and rollback

Browse Source
This commit is contained in:
Justin Leitgeb 2014-06-03 16:26:13 -05:00
parent 4591643f70
commit 257672036f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Main.hs
View File

@ -12,8 +12,9 @@ import Control.Monad.IO.Class (MonadIO(liftIO))
rollback :: Hap.Config -> IO ()
rollback cfg =
Hap.runRC errorHandler successHandler (Hap.initialState cfg) $ do
Hap.restartServerCommand
void Hap.rollback
Hap.rollback
void Hap.restartServerCommand
where
errorHandler = Hap.defaultErrorHandler
@ -36,9 +37,9 @@ deploy cfg =
Hap.buildRelease commands
return $ putStrLn "Done with build, activating release..."
Hap.restartServerCommand
Hap.activateRelease
void Hap.activateRelease
void Hap.restartServerCommand
where
errorHandler = Hap.defaultErrorHandler