wow, cute bug
This commit is contained in:
parent
5d06f1ebc3
commit
274564b7d0
|
@ -57,7 +57,7 @@ simpleSh namedpipe = do
|
|||
=<< catchMaybeIO (writeChan chan . t =<< hGetLine from)
|
||||
void $ concurrently
|
||||
(mkreader StdoutLine outh)
|
||||
(mkreader StderrLine outh)
|
||||
(mkreader StderrLine errh)
|
||||
|
||||
writeChan chan . Done =<< waitForProcess pid
|
||||
|
||||
|
|
Loading…
Reference in New Issue