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)
|
=<< catchMaybeIO (writeChan chan . t =<< hGetLine from)
|
||||||
void $ concurrently
|
void $ concurrently
|
||||||
(mkreader StdoutLine outh)
|
(mkreader StdoutLine outh)
|
||||||
(mkreader StderrLine outh)
|
(mkreader StderrLine errh)
|
||||||
|
|
||||||
writeChan chan . Done =<< waitForProcess pid
|
writeChan chan . Done =<< waitForProcess pid
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue