diff options
Diffstat (limited to 'Utility/Process.hs')
| -rwxr-xr-x | Utility/Process.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs index 381a14983..6e0aef21c 100755 --- a/Utility/Process.hs +++ b/Utility/Process.hs @@ -42,7 +42,7 @@ import Control.Concurrent import qualified Control.Exception as E import Control.Monad import Data.Maybe -#if 0 +#ifndef mingw32_HOST_OS import System.Posix.IO #endif @@ -158,7 +158,7 @@ createBackgroundProcess p a = a =<< createProcess p - returns a transcript combining its stdout and stderr, and - whether it succeeded or failed. -} processTranscript :: String -> [String] -> (Maybe String) -> IO (String, Bool) -#if 0 +#ifndef mingw32_HOST_OS processTranscript cmd opts input = do (readf, writef) <- createPipe readh <- fdToHandle readf |