From 89f6515e6cae592d0d5b4f8727431947dd241d6c Mon Sep 17 00:00:00 2001
From: Duncan Coutts <duncan@haskell.org>
Date: Fri, 7 Mar 2008 02:13:50 +0000
Subject: [PATCH] When generating default Setup.hs use defaultMain not
defaultMainWithHooks defaultUserHooks since the latter is deprecated
---
Distribution/Simple/SrcDist.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Distribution/Simple/SrcDist.hs b/Distribution/Simple/SrcDist.hs
index f45d5c62a6..9dc6b3cd5b 100644
--- a/Distribution/Simple/SrcDist.hs
+++ b/Distribution/Simple/SrcDist.hs
@@ -173,7 +173,7 @@ prepareTree pkg_descr verbosity mb_lbi snapshot tmpDir pps date = do
else if lhsExists then copyFileTo verbosity targetDir "Setup.lhs"
else writeFile (targetDir </> "Setup.hs") $ unlines [
"import Distribution.Simple",
- "main = defaultMainWithHooks defaultUserHooks"]
+ "main = defaultMain"]
-- the description file itself
descFile <- getCurrentDirectory >>= findPackageDesc verbosity
let targetDescFile = targetDir </> descFile
--
GitLab