Merge pull request #162 from uu1101/seq-stderr
Deepseq stderr before closing the handle
This commit is contained in:
commit
a3c4d06ff9
1 changed files with 2 additions and 0 deletions
|
@ -129,7 +129,9 @@ unixFilterIO writer reader programName args input = do
|
|||
|
||||
-- Read from stderr
|
||||
_ <- forkIO $ do
|
||||
hSetEncoding errh localeEncoding
|
||||
err <- hGetContents errh
|
||||
_ <- deepseq err (return err)
|
||||
hClose errh
|
||||
writeIORef errRef err
|
||||
putMVar lock ()
|
||||
|
|
Loading…
Reference in a new issue