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

fix for GHC 7.2.x.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-01-08 22:16:10 +09:00
parent 331e5a9e84
commit 2681dc3519
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,4 +1,4 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings, CPP #-}
module Language.Haskell.GhcMod.CabalApi ( module Language.Haskell.GhcMod.CabalApi (
getCompilerOptions getCompilerOptions
@ -129,7 +129,11 @@ cabalAllBuildInfo pd = libBI ++ execBI ++ testBI ++ benchBI
libBI = map libBuildInfo $ maybeToList $ library pd libBI = map libBuildInfo $ maybeToList $ library pd
execBI = map buildInfo $ executables pd execBI = map buildInfo $ executables pd
testBI = map testBuildInfo $ testSuites pd testBI = map testBuildInfo $ testSuites pd
#if __GLASGOW_HASKELL__ >= 704
benchBI = map benchmarkBuildInfo $ benchmarks pd benchBI = map benchmarkBuildInfo $ benchmarks pd
#else
benchBI = []
#endif
---------------------------------------------------------------- ----------------------------------------------------------------
@ -178,8 +182,11 @@ cabalAllTargets pd = do
Just l -> libModules l Just l -> libModules l
libTargets = map toModuleString $ lib libTargets = map toModuleString $ lib
#if __GLASGOW_HASKELL__ >= 704
benchTargets = map toModuleString $ concatMap benchmarkModules $ benchmarks pd benchTargets = map toModuleString $ concatMap benchmarkModules $ benchmarks pd
#else
benchTargets = []
#endif
toModuleString :: ModuleName -> String toModuleString :: ModuleName -> String
toModuleString mn = fromFilePath $ toFilePath mn toModuleString mn = fromFilePath $ toFilePath mn