cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix long line

This commit is contained in:
Joey Hess 2014-11-18 19:48:02 -04:00
parent 8b6531ea43
commit ce859eaa9a
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Propellor/CmdLine.hs
View File

@ -281,8 +281,16 @@ update = do
hout <- dup stdOutput
hClose stdin
hClose stdout
unlessM (boolSystem "git" [Param "pull", Param "--progress", Param "--upload-pack", Param $ "./propellor --continue " ++ show (GitPush hin hout), Param "."]) $
unlessM (boolSystem "git" (pullparams hin hout)) $
errorMessage "git pull from client failed"
where
pullparams hin hout =
[ Param "pull"
, Param "--progress"
, Param "--upload-pack"
, Param $ "./propellor --continue " ++ show (GitPush hin hout)
, Param "."
]
-- Shim for git push over the propellor ssh channel.
-- Reads from stdin and sends it to hout;