diff options
| author | Clemens Fruhwirth <clemens@endorphin.org> | 2008-11-07 16:07:35 +0000 |
|---|---|---|
| committer | Clemens Fruhwirth <clemens@endorphin.org> | 2008-11-07 16:07:35 +0000 |
| commit | 0f66260b5afc88accb6af6a09b20c3a4de51c39a (patch) | |
| tree | 4d00ee838e63b34bca91ddb81f9434ed88d6778a /compiler/main/PackageConfig.hs | |
| parent | 178eeaa814ab8323a54024e4bb45b4629b7828c8 (diff) | |
| download | haskell-0f66260b5afc88accb6af6a09b20c3a4de51c39a.tar.gz | |
Replace couple of fromJust with expectJust
Diffstat (limited to 'compiler/main/PackageConfig.hs')
| -rw-r--r-- | compiler/main/PackageConfig.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/PackageConfig.hs b/compiler/main/PackageConfig.hs index 1602429f64..a3fd027bb6 100644 --- a/compiler/main/PackageConfig.hs +++ b/compiler/main/PackageConfig.hs @@ -21,7 +21,7 @@ module PackageConfig ( #include "HsVersions.h" -import Data.Maybe +import Maybes import Module import Distribution.InstalledPackageInfo import Distribution.ModuleName @@ -80,7 +80,7 @@ packageConfigToInstalledPackageInfo pkgconf{ exposedModules = map convert e, hiddenModules = map convert h } where convert :: Module.ModuleName -> Distribution.ModuleName.ModuleName - convert = fromJust . simpleParse . moduleNameString + convert = (expectJust "packageConfigToInstalledPackageInfo") . simpleParse . moduleNameString -- | Turn an 'InstalledPackageInfo', which contains Cabal 'Distribution.ModuleName.ModuleName's -- into a GHC specific 'PackageConfig' which contains GHC 'Module.ModuleName's |