Use simpleUserHooks rather than defaultUserHooks in Setup.hs
authorIan Lynagh <igloo@earth.li>
Thu, 26 Jun 2008 11:27:45 +0000 (11:27 +0000)
committerIan Lynagh <igloo@earth.li>
Thu, 26 Jun 2008 11:27:45 +0000 (11:27 +0000)
Cabal says that defaultUserHooks is deprecated.

Setup.hs

index 3c0051d..aedd52b 100644 (file)
--- 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 ()