Merge pull request #162 from uu1101/seq-stderr

Deepseq stderr before closing the handle
This commit is contained in:
Jasper Van der Jeugt 2013-06-17 04:43:06 -07:00
commit a3c4d06ff9

View file

@ -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 ()