X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=libraries%2FinstallPackage.hs;h=65eab5664b1808e7c1b9077429be6c65b4d8f83f;hp=8c6600952eb20d3d61681890cf44a92bc9ebfbb8;hb=cb906a124e36cb5054784a5bc44eb9d099d20709;hpb=e47ddd4edb7e57b5a93a5fdd00ce18809010ee33

diff --git a/libraries/installPackage.hs b/libraries/installPackage.hs
index 8c66009..65eab56 100644
--- a/libraries/installPackage.hs
+++ b/libraries/installPackage.hs
@@ -1,4 +1,5 @@
 
+import Data.Maybe
 import Distribution.PackageDescription
 import Distribution.PackageDescription.Parse
 import Distribution.ReadE
@@ -8,6 +9,7 @@ import Distribution.Simple.LocalBuildInfo
 import Distribution.Simple.Program
 import Distribution.Simple.Setup
 import Distribution.Simple.Utils
+import Distribution.Text
 import Distribution.Verbosity
 import System.Environment
 
@@ -63,7 +65,8 @@ doInstall verbosity ghcpkg ghcpkgconf destdir topdir
               pd_reg = if packageName pd == PackageName "ghc-prim"
                        then case library pd of
                             Just lib ->
-                                let ems = "GHC.Prim" : exposedModules lib
+                                let ems = fromJust (simpleParse "GHC.Prim")
+                                        : exposedModules lib
                                     lib' = lib { exposedModules = ems }
                                 in pd { library = Just lib' }
                             Nothing ->