diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-09-14 21:49:05 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-09-14 21:49:05 -0400 |
| commit | 0d93f4f12c4c7d0a37dc2e6f792ce0f9dde793db (patch) | |
| tree | 082fb29222fb901c9ef34baae7af9700340e79c0 /src/Utility/Process.hs | |
| parent | fb7b1826870c8a0e01f88da74ff2fd98a0626d5b (diff) | |
Allow storing arbitrary ByteStrings in PrivData, extracted using privDataByteString.
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 |