X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FPackageConfig.hs;fp=compiler%2Fmain%2FPackageConfig.hs;h=1602429f64d6b79f44b30a9fcd2c314b38cebbb9;hb=c7c65e17b956aedbdb47b0976c8dcaa284a97945;hp=239a917560bdc4f17406545a09ceffca6192a819;hpb=4a73af53332e94ca56a6faed96f8391c14ecfa18;p=ghc-hetmet.git diff --git a/compiler/main/PackageConfig.hs b/compiler/main/PackageConfig.hs index 239a917..1602429 100644 --- a/compiler/main/PackageConfig.hs +++ b/compiler/main/PackageConfig.hs @@ -71,7 +71,7 @@ unpackPackageId p (pid:_) -> Just pid where str = packageIdString p --- | Turn a 'PackageConfig', which contains GHC 'ModuleName's into a Cabal specific +-- | Turn a 'PackageConfig', which contains GHC 'Module.ModuleName's into a Cabal specific -- 'InstalledPackageInfo' which contains Cabal 'Distribution.ModuleName.ModuleName's packageConfigToInstalledPackageInfo :: PackageConfig -> InstalledPackageInfo packageConfigToInstalledPackageInfo @@ -83,7 +83,7 @@ packageConfigToInstalledPackageInfo convert = fromJust . simpleParse . moduleNameString -- | Turn an 'InstalledPackageInfo', which contains Cabal 'Distribution.ModuleName.ModuleName's --- into a GHC specific 'PackageConfig' which contains GHC 'ModuleName's +-- into a GHC specific 'PackageConfig' which contains GHC 'Module.ModuleName's installedPackageInfoToPackageConfig :: InstalledPackageInfo -> PackageConfig installedPackageInfoToPackageConfig (pkgconf@(InstalledPackageInfo { exposedModules = e,