From 0d93f4f12c4c7d0a37dc2e6f792ce0f9dde793db Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 14 Sep 2015 21:49:05 -0400 Subject: Allow storing arbitrary ByteStrings in PrivData, extracted using privDataByteString. --- src/Utility/Process.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Utility/Process.hs') 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 -- cgit v1.2.3