cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix proto

This commit is contained in:
Joey Hess 2014-11-18 15:37:22 -04:00
parent 160c25b05c
commit b120262482
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/CmdLine.hs
View File

@ -310,9 +310,7 @@ boot = do
-- Reads from stdin and sends it to the first fd; -- Reads from stdin and sends it to the first fd;
-- reads from the second fd and sends it to stdout. -- reads from the second fd and sends it to stdout.
gitPush :: Fd -> Fd -> IO () gitPush :: Fd -> Fd -> IO ()
gitPush hin hout = do gitPush hin hout = void $ fromstdin `concurrently` tostdout
hPutStrLn stderr $ show ("gitPush", hin, hout)
void $ fromstdin `concurrently` tostdout
where where
fromstdin = do fromstdin = do
h <- fdToHandle hin h <- fdToHandle hin