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