diff options
Diffstat (limited to 'src/Utility/Process.hs')
| -rw-r--r-- | src/Utility/Process.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Utility/Process.hs b/src/Utility/Process.hs index c4882a01..05205de8 100644 --- a/src/Utility/Process.hs +++ b/src/Utility/Process.hs @@ -60,6 +60,7 @@ import Prelude import Utility.Misc import Utility.Exception +import Utility.FileSystemEncoding type CreateProcessRunner = forall a. CreateProcess -> ((Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> IO a) -> IO a @@ -81,6 +82,7 @@ readProcessEnv cmd args environ = readProcess' p readProcess' :: CreateProcess -> IO String readProcess' p = withHandle StdoutHandle createProcessSuccess p $ \h -> do + fileEncoding h output <- hGetContentsStrict h hClose h return output |