From: Ian Lynagh <igloo@earth.li>
Date: Wed, 8 Aug 2007 23:16:20 +0000 (+0000)
Subject: Fix the use of emptyCopyFlags
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=aef7618ba5ec47a3c471ae9991f72d4e545bc6d5

Fix the use of emptyCopyFlags
---

diff --git a/libraries/installPackage.hs b/libraries/installPackage.hs
index 3d190d6..466da21 100644
--- a/libraries/installPackage.hs
+++ b/libraries/installPackage.hs
@@ -26,8 +26,7 @@ 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 {