summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 16:12:27 -0400
committerJoey Hess2014-11-18 16:12:27 -0400
commit06add92bce29789eda12cd41b61fe8fde2f64ff4 (patch)
tree10893d02f3cc944811342627479b8f93a3e824d7 /src
parent1468ef4bfe4a4e26cc10cb15b60b9a1f78bdefa5 (diff)
tweak
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/CmdLine.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index f8d5d57d..e84a220e 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -221,7 +221,7 @@ spin hn hst = do
, std_out = UseHandle toh }
(Nothing, Nothing, Nothing, h) <- createProcess p
unlessM ((==) ExitSuccess <$> waitForProcess h) $
- warningMessage "git send-pack failed"
+ warningMessage "git upload-pack failed"
-- no more protocol possible after
-- git push
Just NeedGitClone -> do
@@ -324,7 +324,6 @@ gitPush hin hout = void $ fromstdin `concurrently` tostdout
connect fromh toh = do
b <- B.hGetSome fromh 40960
unless (B.null b) $ do
- hPutStrLn stderr $ show ("got", fromh, b)
B.hPut toh b
hFlush toh
connect fromh toh