refactoring

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