diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/CmdLine.hs | 3 |
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" |