X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=libraries%2FinstallPackage.hs;h=8c6600952eb20d3d61681890cf44a92bc9ebfbb8;hb=a11bb49b97eaba892730baf1565e922715dbc07f;hp=00560a7fc96fbb9e41b1850d1b018f62bdb81d69;hpb=a385f0af5ea320a18d580f6a36c59c55b3516efd;p=ghc-hetmet.git

diff --git a/libraries/installPackage.hs b/libraries/installPackage.hs
index 00560a7..8c66009 100644
--- a/libraries/installPackage.hs
+++ b/libraries/installPackage.hs
@@ -60,7 +60,7 @@ doInstall verbosity ghcpkg ghcpkgconf destdir topdir
               -- This is an almighty hack. We need to register
               -- ghc-prim:GHC.Prim, but it doesn't exist, get built, get
               -- haddocked, get copied, etc.
-              pd_reg = if pkgName (package pd) == "ghc-prim"
+              pd_reg = if packageName pd == PackageName "ghc-prim"
                        then case library pd of
                             Just lib ->
                                 let ems = "GHC.Prim" : exposedModules lib