adding -i

This commit is contained in:
Kazu Yamamoto 2010-03-17 22:39:01 +09:00
parent c22c3bafae
commit b63ab2ddd3

View File

@ -15,7 +15,7 @@ import System.Process
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"] Nothing Nothing
(_,_,herr,_) <- runInteractiveProcess (ghc opt) ["--make","-Wall",file,"-outputdir","dist/flymake","-o","dist/flymake/a.out","-i..","-i../..","-i../../..","-i../../../..","-i../../../../.."] Nothing Nothing
refine <$> hGetContents herr
where
refine = unfoldLines . map shrinkSpaces . remove . lines