summaryrefslogtreecommitdiff
path: root/src/Utility/Process.hs
diff options
context:
space:
mode:
authorJoey Hess2015-09-14 21:49:05 -0400
committerJoey Hess2015-09-14 21:49:05 -0400
commit0d93f4f12c4c7d0a37dc2e6f792ce0f9dde793db (patch)
tree082fb29222fb901c9ef34baae7af9700340e79c0 /src/Utility/Process.hs
parentfb7b1826870c8a0e01f88da74ff2fd98a0626d5b (diff)
Allow storing arbitrary ByteStrings in PrivData, extracted using privDataByteString.
Diffstat (limited to 'src/Utility/Process.hs')
-rw-r--r--src/Utility/Process.hs2
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