diff options
| author | uu1101 <uu1101@gmail.com> | 2013-06-14 00:32:45 +0200 |
|---|---|---|
| committer | uu1101 <uu1101@gmail.com> | 2013-06-14 00:32:45 +0200 |
| commit | cf501485b1325c91f9f6735e8d59248755d2a53c (patch) | |
| tree | 2d68fafe2d0ac7c7ee5148e5804e36408cf179fa /src/Hakyll | |
| parent | a591b1622fe9608bc1dc485b74a54730c958bf4d (diff) | |
| download | hakyll-cf501485b1325c91f9f6735e8d59248755d2a53c.tar.gz | |
Deepseq stderr before closing the handle
Otherwise laziness allows for the handle to be closed withouth receiving the
input. This caused that no error messages were printed when `unixFilter`s
failed.
Diffstat (limited to 'src/Hakyll')
| -rw-r--r-- | src/Hakyll/Core/UnixFilter.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Hakyll/Core/UnixFilter.hs b/src/Hakyll/Core/UnixFilter.hs index e6d4610..3e2d80c 100644 --- a/src/Hakyll/Core/UnixFilter.hs +++ b/src/Hakyll/Core/UnixFilter.hs @@ -130,6 +130,7 @@ unixFilterIO writer reader programName args input = do -- Read from stderr _ <- forkIO $ do err <- hGetContents errh + _ <- deepseq err (return err) hClose errh writeIORef errRef err putMVar lock () |