From 7956fda7d528356d5aa81c2cbf402e83fde39e82 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Nov 2014 15:53:15 -0400 Subject: get handles right way roung --- src/Propellor/CmdLine.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Propellor/CmdLine.hs') diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs index 9b0d755d..a41314f5 100644 --- a/src/Propellor/CmdLine.hs +++ b/src/Propellor/CmdLine.hs @@ -310,16 +310,16 @@ boot = do warningMessage "git pull from client failed" -- Shim for git push over the propellor ssh channel. --- Reads from stdin and sends it to the first fd; --- reads from the second fd and sends it to stdout. +-- Reads from stdin and sends it to hout; +-- reads from hin and sends it to stdout. gitPush :: Fd -> Fd -> IO () gitPush hin hout = void $ fromstdin `concurrently` tostdout where fromstdin = do - h <- fdToHandle hin + h <- fdToHandle hout B.getContents >>= B.hPut h tostdout = do - h <- fdToHandle hout + h <- fdToHandle hin B.hGetContents h >>= B.putStr hasOrigin :: IO Bool -- cgit v1.2.3