Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

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

Browse source 
Print template notice on top of autogenerated source files.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1220 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2008-02-09 03:21:09 +00:00
parent ba6981a4a1
commit 427c2e484d
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Setup.hs
View file

@ -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