From 9d44d13ba1c67cd77953c5c8c2bd28ce26a0b466 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Tue, 30 Mar 2010 12:05:18 +0900
Subject: [PATCH] Text mode for Windows.

---
 Check.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Check.hs b/Check.hs
index 5f85ab8..a674c44 100644
--- a/Check.hs
+++ b/Check.hs
@@ -16,6 +16,7 @@ checkSyntax :: Options -> String -> IO String
 checkSyntax opt file = do
     makeDirectory (outDir opt)
     (_,_,herr,_) <- runInteractiveProcess (ghc opt) ["--make","-Wall",file,"-outputdir","dist/flymake","-o","dist/flymake/a.out","-i..","-i../..","-i../../..","-i../../../..","-i../../../../.."] Nothing Nothing
+    hSetBinaryMode herr False
     refine <$> hGetContents herr
   where
     refine = unfoldLines . map shrinkSpaces . remove . lines