Simplified Setup.hs by removing PostClean hooks.

Added Extra-Tmp-Files to pandoc.cabal; this does the same thing.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1342 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 1 insertions, 15 deletions

diff --git a/Setup.hs b/Setup.hs
index 9d671feae..4a08fdd84 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -10,7 +10,7 @@ import Data.List (isPrefixOf)
 
 main = defaultMainWithHooks myHooks
 
-myHooks = defaultUserHooks { postConf = myPostConf, postClean = myPostClean }
+myHooks = defaultUserHooks { postConf = myPostConf }
 
 pandocPath = combine "Text" "Pandoc"
 
@@ -47,20 +47,6 @@ fillDefaultHeadersTemplate = do
              return . map (combine "headers") . filter (\x -> takeExtension x == ".header")
   fillTemplate files "DefaultHeaders.hs" "DefaultHeaders.hs"
 
--- Post-clean: remove the files generated from templates.
-myPostClean :: Args -> CleanFlags -> PackageDescription -> Maybe LocalBuildInfo -> IO ()
-myPostClean _ _ _ _ = do
-  putStrLn "Removing source files generated from templates:"
-  removeGeneratedFile $ joinPath [pandocPath, "ASCIIMathML.hs"]
-  removeGeneratedFile $ joinPath [pandocPath, "DefaultHeaders.hs"]
-  removeGeneratedFile $ joinPath [pandocPath, "Writers", "S5.hs"]
-
--- Remove file and print message.
-removeGeneratedFile :: FilePath -> IO () 
-removeGeneratedFile fpath = do
-  putStrLn $ "  " ++ fpath
-  removeFile fpath
-
 -- Write the filled template file and print an explanatory message.
 writeTemplate :: FilePath -> String -> IO ()
 writeTemplate outfile contents = do