summaryrefslogtreecommitdiff
path: root/src/Propellor/CmdLine.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/CmdLine.hs')
-rw-r--r--src/Propellor/CmdLine.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index e84a220e..7b20574a 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -218,7 +218,8 @@ spin hn hst = do
sendMarked toh gitPushMarker ""
let p = (proc "git" ["upload-pack", "."])
{ std_in = UseHandle fromh
- , std_out = UseHandle toh }
+ , std_out = UseHandle toh
+ }
(Nothing, Nothing, Nothing, h) <- createProcess p
unlessM ((==) ExitSuccess <$> waitForProcess h) $
warningMessage "git upload-pack failed"