adding -i
This commit is contained in:
parent
c22c3bafae
commit
b63ab2ddd3
2
Check.hs
2
Check.hs
@ -15,7 +15,7 @@ import System.Process
|
|||||||
checkSyntax :: Options -> String -> IO String
|
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"] 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
|
refine <$> hGetContents herr
|
||||||
where
|
where
|
||||||
refine = unfoldLines . map shrinkSpaces . remove . lines
|
refine = unfoldLines . map shrinkSpaces . remove . lines
|
||||||
|
Loading…
Reference in New Issue
Block a user