Skip to content
Snippets Groups Projects
Commit 89f6515e authored by Duncan Coutts's avatar Duncan Coutts
Browse files

When generating default Setup.hs use defaultMain

not defaultMainWithHooks defaultUserHooks since the latter is deprecated
parent 808a34e5
No related branches found
No related tags found
No related merge requests found
...@@ -173,7 +173,7 @@ prepareTree pkg_descr verbosity mb_lbi snapshot tmpDir pps date = do ...@@ -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 if lhsExists then copyFileTo verbosity targetDir "Setup.lhs"
else writeFile (targetDir </> "Setup.hs") $ unlines [ else writeFile (targetDir </> "Setup.hs") $ unlines [
"import Distribution.Simple", "import Distribution.Simple",
"main = defaultMainWithHooks defaultUserHooks"] "main = defaultMain"]
-- the description file itself -- the description file itself
descFile <- getCurrentDirectory >>= findPackageDesc verbosity descFile <- getCurrentDirectory >>= findPackageDesc verbosity
let targetDescFile = targetDir </> descFile let targetDescFile = targetDir </> descFile
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment