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

upgrading GHC 6.12

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-03-31 13:06:47 +09:00
parent 4aef34e352
commit 71e0f54889
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Check.hs
View File

@ -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","-i..","-i../..","-i../../..","-i../../../..","-i../../../../.."] Nothing Nothing (_,_,herr,_) <- runInteractiveProcess (ghc opt) ["--make","-Wall","-fno-warn-unused-do-bind",file,"-outputdir","dist/flymake","-o","dist/flymake/a.out","-i..","-i../..","-i../../..","-i../../../..","-i../../../../.."] Nothing Nothing
hSetBinaryMode herr False hSetBinaryMode herr False
refine <$> hGetContents herr refine <$> hGetContents herr
where where

1
GHCMod.hs
View File

@ -8,7 +8,6 @@ import Param
import Prelude hiding (catch) import Prelude hiding (catch)
import System.Console.GetOpt import System.Console.GetOpt
import System.Environment (getArgs) import System.Environment (getArgs)
import System.IO
---------------------------------------------------------------- ----------------------------------------------------------------