From: Duncan Coutts <duncan.coutts@worc.ox.ac.uk>
Date: Mon, 6 Aug 2007 15:28:24 +0000 (+0000)
Subject: Use emptyRegisterFlags and emptyCopyFlags for reduced fragility
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b4a94ccf25eea5377e4f0c214225c3d7e2c35bde;p=ghc-hetmet.git

Use emptyRegisterFlags and emptyCopyFlags for reduced fragility
So we will inherit default values for any new flags that get added,
so things should not break if new flags are added.
---

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