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

Make hlint happy

Browse Source
This commit is contained in:
Justin Leitgeb 2014-05-31 10:02:15 -05:00
parent fd8214dc7b
commit 976d336b61
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Main.hs
View File

@ -249,8 +249,9 @@ testConfig = Config { _deployPath = "/tmp/project"
updateCacheRepo :: RC (Maybe String)
updateCacheRepo = do
conf <- use config
remoteT $ "cd " ++ (cacheRepoPath conf) ++ " && " ++
"git fetch origin +refs/heads/*:refs/heads/*"
remoteT $ intercalate " && "
[ "cd " ++ cacheRepoPath conf
, "git fetch origin +refs/heads/*:refs/heads/*" ]
------------------------------------------------------------------------------
buildRelease :: RC (Maybe String)
@ -273,9 +274,9 @@ buildRelease = do
initialState :: IO HapistranoState
initialState = do
ts <- currentTimestamp
return $ HapistranoState { _config = testConfig
, _timestamp = ts
}
return HapistranoState { _config = testConfig
, _timestamp = ts
}
------------------------------------------------------------------------------
main :: IO ()