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

close import.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-27 15:17:58 +09:00
parent 660a1e95f5
commit 0a323f71b9
1 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,7 +19,8 @@ import Distribution.ModuleName (ModuleName,toFilePath)
import Distribution.Package (Dependency(Dependency) import Distribution.Package (Dependency(Dependency)
, PackageName(PackageName) , PackageName(PackageName)
, PackageIdentifier(pkgName)) , PackageIdentifier(pkgName))
import Distribution.PackageDescription import Distribution.PackageDescription (PackageDescription, BuildInfo, TestSuite, TestSuiteInterface(..), Executable)
import qualified Distribution.PackageDescription as P
import Distribution.PackageDescription.Configuration (finalizePackageDescription) import Distribution.PackageDescription.Configuration (finalizePackageDescription)
import Distribution.PackageDescription.Parse (readPackageDescription) import Distribution.PackageDescription.Parse (readPackageDescription)
import Distribution.Simple.Compiler (CompilerId(..), CompilerFlavor(..)) import Distribution.Simple.Compiler (CompilerId(..), CompilerFlavor(..))
@ -31,7 +32,7 @@ import Distribution.Verbosity (silent)
import Distribution.Version (Version) import Distribution.Version (Version)
import Language.Haskell.GhcMod.Types import Language.Haskell.GhcMod.Types
import System.Directory (doesFileExist) import System.Directory (doesFileExist)
import System.FilePath import System.FilePath (dropExtension, takeFileName, (</>))
---------------------------------------------------------------- ----------------------------------------------------------------
@ -102,21 +103,21 @@ parseCabalFile file = do
toPkgDesc cid = finalizePackageDescription [] (const True) buildPlatform cid [] toPkgDesc cid = finalizePackageDescription [] (const True) buildPlatform cid []
nullPkg pd = name == "" nullPkg pd = name == ""
where where
PackageName name = pkgName (package pd) PackageName name = pkgName (P.package pd)
---------------------------------------------------------------- ----------------------------------------------------------------
getGHCOptions :: [GHCOption] -> Cradle -> FilePath -> BuildInfo -> IO [GHCOption] getGHCOptions :: [GHCOption] -> Cradle -> FilePath -> BuildInfo -> IO [GHCOption]
getGHCOptions ghcopts cradle cdir binfo = do getGHCOptions ghcopts cradle cdir binfo = do
cabalCpp <- cabalCppOptions cdir cabalCpp <- cabalCppOptions cdir
let cpps = map ("-optP" ++) $ cppOptions binfo ++ cabalCpp let cpps = map ("-optP" ++) $ P.cppOptions binfo ++ cabalCpp
return $ ghcopts ++ pkgDb ++ exts ++ [lang] ++ libs ++ libDirs ++ cpps return $ ghcopts ++ pkgDb ++ exts ++ [lang] ++ libs ++ libDirs ++ cpps
where where
pkgDb = cradlePackageDbOpts cradle pkgDb = cradlePackageDbOpts cradle
lang = maybe "-XHaskell98" (("-X" ++) . display) $ defaultLanguage binfo lang = maybe "-XHaskell98" (("-X" ++) . display) $ P.defaultLanguage binfo
libDirs = map ("-L" ++) $ extraLibDirs binfo libDirs = map ("-L" ++) $ P.extraLibDirs binfo
exts = map (("-X" ++) . display) $ usedExtensions binfo exts = map (("-X" ++) . display) $ P.usedExtensions binfo
libs = map ("-l" ++) $ extraLibs binfo libs = map ("-l" ++) $ P.extraLibs binfo
cabalCppOptions :: FilePath -> IO [String] cabalCppOptions :: FilePath -> IO [String]
cabalCppOptions dir = do cabalCppOptions dir = do
@ -134,11 +135,11 @@ cabalCppOptions dir = do
cabalAllBuildInfo :: PackageDescription -> [BuildInfo] cabalAllBuildInfo :: PackageDescription -> [BuildInfo]
cabalAllBuildInfo pd = libBI ++ execBI ++ testBI ++ benchBI cabalAllBuildInfo pd = libBI ++ execBI ++ testBI ++ benchBI
where where
libBI = map libBuildInfo $ maybeToList $ library pd libBI = map P.libBuildInfo $ maybeToList $ P.library pd
execBI = map buildInfo $ executables pd execBI = map P.buildInfo $ P.executables pd
testBI = map testBuildInfo $ testSuites pd testBI = map P.testBuildInfo $ P.testSuites pd
#if __GLASGOW_HASKELL__ >= 704 #if __GLASGOW_HASKELL__ >= 704
benchBI = map benchmarkBuildInfo $ benchmarks pd benchBI = map P.benchmarkBuildInfo $ P.benchmarks pd
#else #else
benchBI = [] benchBI = []
#endif #endif
@ -149,14 +150,14 @@ cabalAllBuildInfo pd = libBI ++ execBI ++ testBI ++ benchBI
cabalDependPackages :: [BuildInfo] -> [PackageBaseName] cabalDependPackages :: [BuildInfo] -> [PackageBaseName]
cabalDependPackages bis = uniqueAndSort $ pkgs cabalDependPackages bis = uniqueAndSort $ pkgs
where where
pkgs = map getDependencyPackageName $ concatMap targetBuildDepends bis pkgs = map getDependencyPackageName $ concatMap P.targetBuildDepends bis
getDependencyPackageName (Dependency (PackageName nm) _) = nm getDependencyPackageName (Dependency (PackageName nm) _) = nm
---------------------------------------------------------------- ----------------------------------------------------------------
-- | Extracting include directories for modules. -- | Extracting include directories for modules.
cabalSourceDirs :: [BuildInfo] -> [IncludeDir] cabalSourceDirs :: [BuildInfo] -> [IncludeDir]
cabalSourceDirs bis = uniqueAndSort $ concatMap hsSourceDirs bis cabalSourceDirs bis = uniqueAndSort $ concatMap P.hsSourceDirs bis
---------------------------------------------------------------- ----------------------------------------------------------------
@ -181,17 +182,17 @@ getGHC = do
-- tests and benchmarks. -- tests and benchmarks.
cabalAllTargets :: PackageDescription -> IO ([String],[String],[String],[String]) cabalAllTargets :: PackageDescription -> IO ([String],[String],[String],[String])
cabalAllTargets pd = do cabalAllTargets pd = do
exeTargets <- mapM getExecutableTarget $ executables pd exeTargets <- mapM getExecutableTarget $ P.executables pd
testTargets <- mapM getTestTarget $ testSuites pd testTargets <- mapM getTestTarget $ P.testSuites pd
return (libTargets,concat exeTargets,concat testTargets,benchTargets) return (libTargets,concat exeTargets,concat testTargets,benchTargets)
where where
lib = case library pd of lib = case P.library pd of
Nothing -> [] Nothing -> []
Just l -> libModules l Just l -> P.libModules l
libTargets = map toModuleString $ lib libTargets = map toModuleString $ lib
#if __GLASGOW_HASKELL__ >= 704 #if __GLASGOW_HASKELL__ >= 704
benchTargets = map toModuleString $ concatMap benchmarkModules $ benchmarks pd benchTargets = map toModuleString $ concatMap P.benchmarkModules $ P.benchmarks pd
#else #else
benchTargets = [] benchTargets = []
#endif #endif
@ -203,15 +204,15 @@ cabalAllTargets pd = do
getTestTarget :: TestSuite -> IO [String] getTestTarget :: TestSuite -> IO [String]
getTestTarget ts = getTestTarget ts =
case testInterface ts of case P.testInterface ts of
(TestSuiteExeV10 _ filePath) -> do (TestSuiteExeV10 _ filePath) -> do
let maybeTests = [p </> e | p <- hsSourceDirs $ testBuildInfo ts, e <- [filePath]] let maybeTests = [p </> e | p <- P.hsSourceDirs $ P.testBuildInfo ts, e <- [filePath]]
liftIO $ filterM doesFileExist maybeTests liftIO $ filterM doesFileExist maybeTests
(TestSuiteLibV09 _ moduleName) -> return [toModuleString moduleName] (TestSuiteLibV09 _ moduleName) -> return [toModuleString moduleName]
(TestSuiteUnsupported _) -> return [] (TestSuiteUnsupported _) -> return []
getExecutableTarget :: Executable -> IO [String] getExecutableTarget :: Executable -> IO [String]
getExecutableTarget exe = do getExecutableTarget exe = do
let maybeExes = [p </> e | p <- hsSourceDirs $ buildInfo exe, e <- [modulePath exe]] let maybeExes = [p </> e | p <- P.hsSourceDirs $ P.buildInfo exe, e <- [P.modulePath exe]]
liftIO $ filterM doesFileExist maybeExes liftIO $ filterM doesFileExist maybeExes