GHC version check.

This commit is contained in:
Kazu Yamamoto 2010-04-06 22:54:23 +09:00
parent df847d9e96
commit f1aeaa8d81
2 changed files with 11 additions and 2 deletions

View File

@ -1,3 +1,5 @@
{-# LANGUAGE CPP #-}
module Check (checkSyntax) where
import Control.Applicative
@ -15,7 +17,11 @@ import System.Process
checkSyntax :: Options -> String -> IO String
checkSyntax opt file = do
makeDirectory (outDir opt)
#if __GLASGOW_HASKELL__ == 612
(_,_,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
#else
(_,_,herr,_) <- runInteractiveProcess (ghc opt) ["--make","-Wall",file,"-outputdir","dist/flymake","-o","dist/flymake/a.out","-i..","-i../..","-i../../..","-i../../../..","-i../../../../.."] Nothing Nothing
#endif
hSetBinaryMode herr False
refine <$> hGetContents herr
where

View File

@ -24,8 +24,11 @@ Data-Files: Makefile ghc.el ghc-func.el ghc-doc.el ghc-comp.el
Executable ghc-mod
Main-Is: GHCMod.hs
Other-Modules: List Browse Check Param Lang
GHC-Options: -Wall -fno-warn-unused-do-bind
Build-Depends: base >= 4.0 && < 10,
if impl(ghc >= 6.12)
GHC-Options: -Wall -O2 -fno-warn-unused-do-bind
else
GHC-Options: -Wall -O2
Build-Depends: base >= 4.0 && < 5,
parsec >= 3, process, haskell-src-exts,
directory, filepath
Source-Repository head