Text mode for Windows.
This commit is contained in:
parent
b63ab2ddd3
commit
9d44d13ba1
1
Check.hs
1
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
|
||||
|
Loading…
Reference in New Issue
Block a user