stub out posix stuff for Windows

This is enough to let the configure program build.
This commit is contained in:
Joey Hess 2013-05-10 15:08:53 -05:00
parent 767a39bd42
commit a05b4619bb
8 changed files with 62 additions and 3 deletions

9
Utility/Process.hs Normal file → Executable file
View file

@ -6,7 +6,7 @@
- Licensed under the GNU GPL version 3 or higher.
-}
{-# LANGUAGE Rank2Types #-}
{-# LANGUAGE CPP, Rank2Types #-}
module Utility.Process (
module X,
@ -42,7 +42,9 @@ import Control.Concurrent
import qualified Control.Exception as E
import Control.Monad
import Data.Maybe
#if 0
import System.Posix.IO
#endif
import Utility.Misc
@ -156,6 +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
processTranscript cmd opts input = do
(readf, writef) <- createPipe
readh <- fdToHandle readf
@ -189,7 +192,9 @@ processTranscript cmd opts input = do
ok <- checkSuccessProcess pid
return (transcript, ok)
#else
processTranscript = error "processTranscript TODO"
#endif
{- Runs a CreateProcessRunner, on a CreateProcess structure, that
- is adjusted to pipe only from/to a single StdHandle, and passes