hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Text mode for Windows.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-03-30 12:05:18 +09:00
parent b63ab2ddd3
commit 9d44d13ba1
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Check.hs
View File

@ -16,6 +16,7 @@ checkSyntax :: Options -> String -> IO String
checkSyntax opt file = do checkSyntax opt file = do
makeDirectory (outDir opt) 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 (_,_,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 refine <$> hGetContents herr
where where
refine = unfoldLines . map shrinkSpaces . remove . lines refine = unfoldLines . map shrinkSpaces . remove . lines