From: Ian Lynagh <igloo@earth.li>
Date: Thu, 26 Jun 2008 11:27:45 +0000 (+0000)
Subject: Use simpleUserHooks rather than defaultUserHooks in Setup.hs
X-Git-Tag: 6_10_branch_has_been_forked~10
X-Git-Url: http://git.megacz.com/?p=ghc-prim.git;a=commitdiff_plain;h=a2f811942f782158671fd6dbba94daf5d8ecb0e1

Use simpleUserHooks rather than defaultUserHooks in Setup.hs
Cabal says that defaultUserHooks is deprecated.
---

diff --git a/Setup.hs b/Setup.hs
index 3c0051d..aedd52b 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -16,15 +16,15 @@ import System.Directory
 import Control.Exception (try)
 
 main :: IO ()
-main = do let hooks = defaultUserHooks {
+main = do let hooks = simpleUserHooks {
                   regHook = addPrimModule
-                          $ regHook defaultUserHooks,
+                          $ regHook simpleUserHooks,
                   buildHook = build_primitive_sources
-                            $ buildHook defaultUserHooks,
+                            $ buildHook simpleUserHooks,
                   makefileHook = build_primitive_sources
-                               $ makefileHook defaultUserHooks,
+                               $ makefileHook simpleUserHooks,
                   haddockHook = build_primitive_sources
-                               $ haddockHook defaultUserHooks }
+                               $ haddockHook simpleUserHooks }
           defaultMainWithHooks hooks
 
 type Hook a = PackageDescription -> LocalBuildInfo -> UserHooks -> a -> IO ()