X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2FinstallPackage%2FinstallPackage.hs;h=9ec728259223c73648942958a49ae750d32cd2ab;hb=e87a19501df36650835a86795fd92f9847fd9905;hp=2c3d245fc89014299b054a67032af4d6d594f32b;hpb=eb546347e5eace34612005c151121fcd1f32b257;p=ghc-hetmet.git

diff --git a/utils/installPackage/installPackage.hs b/utils/installPackage/installPackage.hs
index 2c3d245..9ec7282 100644
--- a/utils/installPackage/installPackage.hs
+++ b/utils/installPackage/installPackage.hs
@@ -59,11 +59,13 @@ doInstall verbosity distPref enableShellWrappers strip
        do let userHooks = simpleUserHooks
               copyto = if null destdir then NoCopyDest else CopyTo destdir
               copyFlags = defaultCopyFlags {
+                              copyDistPref = toFlag distPref,
                               copyUseWrapper = toFlag enableShellWrappers,
                               copyDest = toFlag copyto,
                               copyVerbosity = toFlag verbosity
                           }
               registerFlags = defaultRegisterFlags {
+                                  regDistPref = toFlag distPref,
                                   regPackageDB = toFlag GlobalPackageDB,
                                   regVerbosity = toFlag verbosity,
                                   regGenScript = toFlag $ False,