X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=libraries%2FinstallPackage.hs;h=866b0e8c6dfea7bf81af8ae82fa5b3418766f561;hb=1064a48b4cb5b883c14510c0ce7cae290da14453;hp=3d190d6432eddfb1225d159d448ca32f36271077;hpb=b4a94ccf25eea5377e4f0c214225c3d7e2c35bde;p=ghc-hetmet.git

diff --git a/libraries/installPackage.hs b/libraries/installPackage.hs
index 3d190d6..866b0e8 100644
--- a/libraries/installPackage.hs
+++ b/libraries/installPackage.hs
@@ -26,13 +26,15 @@ main = do args <- getArgs
 doit :: FilePath -> FilePath -> Verbosity -> IO ()
 doit pref ghcpkg verbosity =
        do let userHooks = simpleUserHooks
-              copyFlags = emptyCopyFlags {
-                              copyDest = NoCopyDest,
+              copyFlags = (emptyCopyFlags NoCopyDest) {
                               copyVerbose = verbosity
                           }
               registerFlags = emptyRegisterFlags {
                                   regUser = MaybeUserGlobal,
-                                  regVerbose = verbosity
+                                  regVerbose = verbosity,
+                                  regGenScript = False,
+                                  regInPlace = False,
+                                  regWithHcPkg = Just ghcpkg
                               }
           lbi <- getPersistBuildConfig
           let pd = localPkgDescr lbi