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
This commit is contained in:
Naohiro Aota
2014-01-30 20:42:25 +09:00
parent 7c6fbb2af1
commit a0db24b0a5
8 changed files with 31 additions and 13 deletions

View File

@@ -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
----------------------------------------------------------------
----------------------------------------------------------------