WIP: Separate GenericPackageDescription from PackageDescription

Cabal/Cabal.cabal

@@ -323,6 +323,7 @@ library
     Distribution.Types.BenchmarkType
     Distribution.Types.BuildInfo
     Distribution.Types.BuildType
+    Distribution.Types.CommonPackageDescription
     Distribution.Types.ComponentInclude
     Distribution.Types.Dependency
     Distribution.Types.ExeDependency
@@ -412,6 +413,7 @@ library
     Distribution.Types.Lens
     Distribution.Types.Benchmark.Lens
     Distribution.Types.BuildInfo.Lens
+    Distribution.Types.CommonPackageDescription.Lens
     Distribution.Types.Executable.Lens
     Distribution.Types.ForeignLib.Lens
     Distribution.Types.GenericPackageDescription.Lens

Cabal/Distribution/Backpack/Configure.hs

@@ -108,7 +108,7 @@ configureComponentLocalBuildInfos
             | otherwise = error ("uid_lookup: " ++ display uid)
           where uid = unDefUnitId def_uid
     graph2 <- toLinkedComponents verbosity uid_lookup
-                    (package pkg_descr) shape_pkg_map graph1
+                    (packageId pkg_descr) shape_pkg_map graph1
 
     infoProgress $
         hang (text "Linked component graph:") 4

Cabal/Distribution/Backpack/ConfiguredComponent.hs

@@ -138,7 +138,7 @@ mkConfiguredComponent pkg_descr this_cid lib_deps exe_deps component = do
     return ConfiguredComponent {
             cc_ann_id = AnnotatedId {
                     ann_id = this_cid,
-                    ann_pid = package pkg_descr,
+                    ann_pid = packageId pkg_descr,
                     ann_cname = componentName component
                 },
             cc_component = component,
@@ -231,7 +231,7 @@ toConfiguredComponent' use_external_internal_deps flags
                 else cc
   where
     -- TODO: pass component names to it too!
-    this_cid = computeComponentId deterministic ipid_flag cid_flag (package pkg_descr)
+    this_cid = computeComponentId deterministic ipid_flag cid_flag (packageId pkg_descr)
                 (componentName component) (Just (deps, flags))
     deps = [ ann_id aid | m <- Map.elems dep_map
                         , aid <- Map.elems m ]

Cabal/Distribution/PackageDescription.hs

@@ -14,14 +14,14 @@ module Distribution.PackageDescription (
         -- * Package descriptions
         PackageDescription(..),
         emptyPackageDescription,
-        specVersion,
-        buildType,
-        license,
         descCabalVersion,
         BuildType(..),
         knownBuildTypes,
         allLibraries,
 
+        -- * package description shared
+        CommonPackageDescription(..),
+
         -- ** Renaming (syntactic)
         ModuleRenaming(..),
         defaultRenaming,
@@ -72,7 +72,6 @@ module Distribution.PackageDescription (
         -- * Build information
         BuildInfo(..),
         emptyBuildInfo,
-        allBuildInfo,
         allLanguages,
         allExtensions,
         usedExtensions,
@@ -83,7 +82,6 @@ module Distribution.PackageDescription (
         hcStaticOptions,
 
         -- ** Supplementary build information
-        allBuildDepends,
         enabledBuildDepends,
         ComponentName(..),
         defaultLibName,
@@ -130,6 +128,7 @@ import Distribution.Types.ModuleReexport
 import Distribution.Types.BuildInfo
 import Distribution.Types.SetupBuildInfo
 import Distribution.Types.BuildType
+import Distribution.Types.CommonPackageDescription
 import Distribution.Types.GenericPackageDescription
 import Distribution.Types.CondTree
 import Distribution.Types.Condition