diff options
Diffstat (limited to 'Utility/Process.hs')
| -rwxr-xr-x[-rw-r--r--] | Utility/Process.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Utility/Process.hs b/Utility/Process.hs index b2bac99a1..381a14983 100644..100755 --- a/Utility/Process.hs +++ b/Utility/Process.hs @@ -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 |