Modified Setup.hs with new location for DefaultHeaders.hs.

Print template notice on top of autogenerated source files.


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

1 files changed, 4 insertions, 2 deletions

diff --git a/Setup.hs b/Setup.hs
index ec035614e..977b6494e 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -52,8 +52,8 @@ myPostClean :: Args -> CleanFlags -> PackageDescription -> Maybe LocalBuildInfo
 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"]
-  removeGeneratedFile $ joinPath [pandocPath, "Writers", "DefaultHeaders.hs"]
 
 -- Remove file and print message.
 removeGeneratedFile :: FilePath -> IO () 
@@ -65,7 +65,9 @@ removeGeneratedFile fpath = do
 writeTemplate :: FilePath -> String -> IO ()
 writeTemplate outfile contents = do
   putStrLn $ "  " ++ outfile
-  writeFile outfile contents
+  let warning = "-- This file is generated from a template in the templates subdirectory.\n\
+                \-- Modify that file, not this one.\n"
+  writeFile outfile (warning ++ contents)
 
 -- Read contents of fpath and insert in template replacing @fpath@.
 processFile :: String -> FilePath -> IO String