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

Specifying "-optP".

Browse Source
This commit is contained in:
Kazu Yamamoto 2013-09-16 11:15:34 +09:00
parent 856392fdb7
commit 57d2c74f1c
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Language/Haskell/GhcMod/CabalApi.hs
View File

@ -52,10 +52,13 @@ cookInfo ghcOptions cradle cabal = (gopts,idirs,depPkgs)
Just cdir = cradleCabalDir cradle Just cdir = cradleCabalDir cradle
Just cfile = cradleCabalFile cradle Just cfile = cradleCabalFile cradle
buildInfos = cabalAllBuildInfo cabal buildInfos = cabalAllBuildInfo cabal
gopts = getGHCOptions ghcOptions $ head buildInfos gopts = getGHCOptions ghcOptions cdir $ head buildInfos
idirs = includeDirectories cdir wdir $ cabalSourceDirs buildInfos idirs = includeDirectories cdir wdir $ cabalSourceDirs buildInfos
depPkgs = removeThem problematicPackages $ removeMe cfile $ cabalDependPackages buildInfos depPkgs = removeThem problematicPackages $ removeMe cfile $ cabalDependPackages buildInfos
----------------------------------------------------------------
-- Dependent packages
removeMe :: FilePath -> [Package] -> [Package] removeMe :: FilePath -> [Package] -> [Package]
removeMe cabalfile = filter (/= me) removeMe cabalfile = filter (/= me)
where where
@ -69,6 +72,9 @@ problematicPackages = [
"base-compat" -- providing "Prelude" "base-compat" -- providing "Prelude"
] ]
----------------------------------------------------------------
-- Include directories for modules
cabalBuildDirs :: [FilePath] cabalBuildDirs :: [FilePath]
cabalBuildDirs = ["dist/build"] cabalBuildDirs = ["dist/build"]
@ -98,13 +104,17 @@ parseCabalFile file = do
---------------------------------------------------------------- ----------------------------------------------------------------
getGHCOptions :: [GHCOption] -> BuildInfo -> [GHCOption] getGHCOptions :: [GHCOption] -> FilePath -> BuildInfo -> [GHCOption]
getGHCOptions ghcOptions binfo = ghcOptions ++ exts ++ [lang] ++ libs ++ libDirs getGHCOptions ghcOptions cdir binfo = ghcOptions ++ exts ++ [lang] ++ libs ++ libDirs ++ cpps
where where
exts = map (("-X" ++) . display) $ usedExtensions binfo
lang = maybe "-XHaskell98" (("-X" ++) . display) $ defaultLanguage binfo lang = maybe "-XHaskell98" (("-X" ++) . display) $ defaultLanguage binfo
libs = map ("-l" ++) $ extraLibs binfo
libDirs = map ("-L" ++) $ extraLibDirs binfo libDirs = map ("-L" ++) $ extraLibDirs binfo
exts = map (("-X" ++) . display) $ usedExtensions binfo
libs = map ("-l" ++) $ extraLibs binfo
cpps = map ("-optP" ++) $ cppOptions binfo ++ cabalCppOptions cdir
cabalCppOptions :: FilePath -> [String]
cabalCppOptions dir = ["-include", dir </> "dist/build/autogen/cabal_macros.h"]
---------------------------------------------------------------- ----------------------------------------------------------------