diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-18 15:37:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-18 15:37:22 -0400 |
| commit | b120262482e030c05ed98bbd4d935b21b9b0a163 (patch) | |
| tree | caabed5001ad545ff2ee30326f6048e491f62772 /src | |
| parent | 160c25b05cd24f1db7f8b0e6e25bb2f8b7a171e6 (diff) | |
fix proto
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/CmdLine.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs index 2f41f0c6..1aae33fc 100644 --- a/src/Propellor/CmdLine.hs +++ b/src/Propellor/CmdLine.hs @@ -310,9 +310,7 @@ boot = do -- Reads from stdin and sends it to the first fd; -- reads from the second fd and sends it to stdout. gitPush :: Fd -> Fd -> IO () -gitPush hin hout = do - hPutStrLn stderr $ show ("gitPush", hin, hout) - void $ fromstdin `concurrently` tostdout +gitPush hin hout = void $ fromstdin `concurrently` tostdout where fromstdin = do h <- fdToHandle hin |
