diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-31 01:09:36 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-31 01:09:36 +0000 |
commit | 0d8fc82a8c0e9ed9f439452ddd439d768812e3b5 (patch) | |
tree | 60911143025bd4f28327f4f893a634b96b446937 /src/pandoc.hs | |
parent | 732e6a109721f0b456962e8eaff674996f72dd22 (diff) |
Changed --print-default-header to --print-default-template.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1679 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/pandoc.hs')
-rw-r--r-- | src/pandoc.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs index 8f4c9e41f..a4a9d2900 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -387,16 +387,16 @@ options = "STRING") "" -- "String to prefix to HTML window title" - , Option "D" ["print-default-header"] + , Option "D" ["print-default-template"] (ReqArg (\arg _ -> do - let header = case (lookup arg writers) of + let template = case (lookup arg writers) of Just (_, h) -> h Nothing -> error ("Unknown reader: " ++ arg) - hPutStr stdout header + hPutStr stdout template exitWith ExitSuccess) "FORMAT") - "" -- "Print default header for FORMAT" + "" -- "Print default template for FORMAT" #ifdef _CITEPROC , Option "" ["biblio"] (ReqArg |