diff options
Diffstat (limited to 'Utility/CoProcess.hs')
| -rw-r--r-- | Utility/CoProcess.hs | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/Utility/CoProcess.hs b/Utility/CoProcess.hs index 7a2a5fe8e..f72850fc5 100644 --- a/Utility/CoProcess.hs +++ b/Utility/CoProcess.hs @@ -6,11 +6,14 @@ - Licensed under the GNU GPL version 3 or higher. -} +{-# LANGUAGE CPP #-} + module Utility.CoProcess ( CoProcessHandle, start, stop, - query + query, + rawMode ) where import Common @@ -33,3 +36,15 @@ query (_, from, to, _) send receive = do _ <- send to hFlush to receive from + +rawMode :: CoProcessHandle -> IO CoProcessHandle +rawMode ch@(_, from, to, _) = do + raw from + raw to + return ch + where + raw h = do + fileEncoding h +#ifdef __WINDOWS__ + hSetNewlineMode h noNewlineTranslation +#endif |