Text mode for Windows.

2010-03-30 12:05:18 +09:00 · 2010-03-30 12:05:18 +09:00 · 9d44d13ba1
commit 9d44d13ba1
parent b63ab2ddd3
1 changed files with 1 additions and 0 deletions
--- 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