+\begin{code}
+type PackageName = FastString -- No encoding at all
+
+mkPackageName :: String -> PackageName
+mkPackageName = mkFastString
+
+packageNameString :: PackageName -> String
+packageNameString = unpackFS
+
+rtsPackage, preludePackage, haskell98Package :: PackageName
+preludePackage = FSLIT("base")
+rtsPackage = FSLIT("rts")
+haskell98Package = FSLIT("haskell98")
+
+packageDependents :: PackageConfig -> [PackageName]
+-- Impedence matcher, because PackageConfig has Strings
+-- not PackageNames at the moment. Sigh.
+packageDependents pkg = map mkPackageName (package_deps pkg)
+\end{code}
+
+A PackageConfigMap maps a PackageName to a PackageConfig
+
+\begin{code}
+type PackageConfigMap = UniqFM PackageConfig
+
+lookupPkg :: PackageConfigMap -> PackageName -> Maybe PackageConfig
+emptyPkgMap :: PackageConfigMap
+
+emptyPkgMap = emptyUFM
+lookupPkg = lookupUFM
+
+extendPkgMap :: PackageConfigMap -> [PackageConfig] -> PackageConfigMap
+extendPkgMap pkg_map new_pkgs
+ = foldl add pkg_map new_pkgs
+ where
+ add pkg_map p = addToUFM pkg_map (mkFastString (name p)) p
+\end{code}
+