From a2f811942f782158671fd6dbba94daf5d8ecb0e1 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Thu, 26 Jun 2008 11:27:45 +0000
Subject: [PATCH] Use simpleUserHooks rather than defaultUserHooks in Setup.hs
 Cabal says that defaultUserHooks is deprecated.

---
 Setup.hs |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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 ()
-- 
1.7.10.4