diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-18 16:24:45 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-18 16:24:45 -0400 |
| commit | 935e1d11fe9cfe5d177e18323be32e093698697a (patch) | |
| tree | 07c1309ec941db3799e0982eb6390ba9ceeaef82 /src/Propellor | |
| parent | ac84d6d1026adcfd39c4204b97fbc67b2f787423 (diff) | |
propellor spin
Diffstat (limited to 'src/Propellor')
| -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" |