Extend Package to include id

This commit
1. rename Package with PackageBaseName
2. Pacakge = (PackageBaseName, Maybe String) to save its id
3. Expose packages with id if available

Language/Haskell/GhcMod/CabalApi.hs

@@ -44,26 +44,34 @@ getCompilerOptions ghcopts cradle pkgDesc = do
     wdir       = cradleCurrentDir cradle
     Just cdir  = cradleCabalDir   cradle
     Just cfile = cradleCabalFile  cradle
+    pkgs       = cradlePackages   cradle
     buildInfos = cabalAllBuildInfo pkgDesc
     idirs      = includeDirectories cdir wdir $ cabalSourceDirs buildInfos
-    depPkgs    = removeThem problematicPackages $ removeMe cfile $ cabalDependPackages buildInfos
+    depPkgs    = attachPackageIds pkgs $ removeThem problematicPackages $ removeMe cfile $ cabalDependPackages buildInfos
 
 ----------------------------------------------------------------
 -- Dependent packages
 
-removeMe :: FilePath -> [Package] -> [Package]
+removeMe :: FilePath -> [PackageBaseName] -> [PackageBaseName]
 removeMe cabalfile = filter (/= me)
   where
     me = dropExtension $ takeFileName cabalfile
 
-removeThem :: [Package] -> [Package] -> [Package]
+removeThem :: [PackageBaseName] -> [PackageBaseName] -> [PackageBaseName]
 removeThem badpkgs = filter (`notElem` badpkgs)
 
-problematicPackages :: [Package]
+problematicPackages :: [PackageBaseName]
 problematicPackages = [
     "base-compat" -- providing "Prelude"
   ]
 
+attachPackageIds :: [Package] -> [PackageBaseName] -> [Package]
+attachPackageIds pkgs = map attachId
+  where
+    attachId x = case lookup x pkgs of
+      Nothing -> (x, Nothing)
+      Just p -> (x, p)
+
 ----------------------------------------------------------------
 -- Include directories for modules
 
@@ -138,7 +146,7 @@ cabalAllBuildInfo pd = libBI ++ execBI ++ testBI ++ benchBI
 ----------------------------------------------------------------
 
 -- | Extracting package names of dependency.
-cabalDependPackages :: [BuildInfo] -> [Package]
+cabalDependPackages :: [BuildInfo] -> [PackageBaseName]
 cabalDependPackages bis = uniqueAndSort $ pkgs
   where
     pkgs = map getDependencyPackageName $ concatMap targetBuildDepends bis

Language/Haskell/GhcMod/Cradle.hs

@@ -32,6 +32,7 @@ findCradle = do
       , cradleCabalDir      = Nothing
       , cradleCabalFile     = Nothing
       , cradlePackageDbOpts = []
+      , cradlePackages      = []
       }
 
 findCradle' :: FilePath -> IO Cradle
@@ -43,13 +44,14 @@ findCradle' wdir = do
       , cradleCabalDir      = Just cdir
       , cradleCabalFile     = Just cfile
       , cradlePackageDbOpts = pkgDbOpts
+      , cradlePackages      = []
       }
 
 -- Just for testing
 findCradleWithoutSandbox :: IO Cradle
 findCradleWithoutSandbox = do
     cradle <- findCradle
-    return cradle { cradlePackageDbOpts = [] }
+    return cradle { cradlePackageDbOpts = [], cradlePackages = [] }
 
 ----------------------------------------------------------------
 

Language/Haskell/GhcMod/Debug.hs

@@ -41,7 +41,7 @@ debug opt cradle fileName = do
       , "Cabal file:          " ++ cabalFile
       , "GHC options:         " ++ unwords gopts
       , "Include directories: " ++ unwords incDir
-      , "Dependent packages:  " ++ intercalate ", " pkgs
+      , "Dependent packages:  " ++ (intercalate ", " $ map fst pkgs)
       , "Fast check:          " ++ if fast then "Yes" else "No"
       ]
   where

Language/Haskell/GhcMod/Gap.hs

@@ -234,8 +234,10 @@ addDevPkgs df pkgs = df''
     df' = dopt_set df Opt_HideAllPackages
 #endif
     df'' = df' {
-        packageFlags = map ExposePackage pkgs ++ packageFlags df
+        packageFlags = map expose pkgs ++ packageFlags df
       }
+    expose (pkg, Nothing) = ExposePackage pkg
+    expose (_, Just pid) = ExposePackageId pid
 
 ----------------------------------------------------------------
 ----------------------------------------------------------------

Language/Haskell/GhcMod/Types.hs

@@ -90,6 +90,7 @@ data Cradle = Cradle {
   , cradleCabalFile   :: Maybe FilePath
   -- | The package db options. ([\"-no-user-package-db\",\"-package-db\",\"\/foo\/bar\/i386-osx-ghc-7.6.3-packages.conf.d\"])
   , cradlePackageDbOpts :: [GHCOption]
+  , cradlePackages :: [Package]
   } deriving (Eq, Show)
 
 ----------------------------------------------------------------
@@ -101,7 +102,10 @@ type GHCOption  = String
 type IncludeDir = FilePath
 
 -- | A package name.
-type Package    = String
+type PackageBaseName = String
+
+-- | A package name and its ID.
+type Package    = (PackageBaseName, Maybe String)
 
 -- | Haskell expression.
 type Expression = String