aboutsummaryrefslogtreecommitdiff
path: root/Utility/Process.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <id@joeyh.name>2013-05-10 16:57:21 -0500
committerGravatar Joey Hess <id@joeyh.name>2013-05-10 16:57:21 -0500
commitae6293ae6710b0a7580bc9a0045c92d1d5b87036 (patch)
treefbd105bed124fb698fdc5bbdf4eb2d9ccd086979 /Utility/Process.hs
parent5d0476bf59674b39fa6bad7e4446b5c741181143 (diff)
fixup #if 0 stubs to use #ifndef mingw32_HOST_OS
That's needed in files used to build the configure program. For the other files, I'm keeping my __WINDOWS__ define, as I find that much easier to type. I may search and replace it to use the mingw32_HOST_OS thing later.
Diffstat (limited to 'Utility/Process.hs')
-rwxr-xr-xUtility/Process.hs4
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