stackbuilders/hapistrano
1
1
Fork 0
mirror of https://github.com/stackbuilders/hapistrano.git synced 2024-11-27 12:13:41 +03:00
Code Issues Projects Releases Wiki Activity

Simplify a function

Browse Source
This commit is contained in:
Justin Leitgeb 2014-06-03 16:17:55 -05:00
parent 5b8f231a95
commit 2854b111b2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Hapistrano.hs
View File

@ -300,10 +300,10 @@ removeCurrentSymlink = do
remoteIsLinux :: RC Bool
remoteIsLinux = do
st <- get
res <- liftIO $ runEitherT $ evalStateT (remoteCommand "uname") st
res <- remoteCommand "uname"
case res of
Right (Just output) -> lift $ right $ "Linux" `isInfixOf` output
Just output -> lift $ right $ "Linux" `isInfixOf` output
_ -> lift $ left (1, Just "Unable to determine remote host type")
restartServerCommand :: RC (Maybe String)