diff options
author | John MacFarlane <jgm@berkeley.edu> | 2010-12-11 00:22:34 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-11 00:22:34 -0800 |
commit | c6b79d794eb25cb11777d2b720ce01595c780de1 (patch) | |
tree | 2c06481ca74bd5fa0f1b456f73fd8b94d92c44cd /src | |
parent | f5c208230451c2f8446b639a4458a255e14778fb (diff) | |
download | pandoc-c6b79d794eb25cb11777d2b720ce01595c780de1.tar.gz |
Removed deprecated -C/--custom-header option.
Use --template instead.
Diffstat (limited to 'src')
-rw-r--r-- | src/pandoc.hs | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs index 52dfb731a..daad7d43c 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -409,16 +409,6 @@ options = "FILENAME") "" -- "File to include after document body" - , Option "C" ["custom-header"] - (ReqArg - (\arg opt -> do - text <- UTF8.readFile arg - let newVars = ("legacy-header", text) : optVariables opt - return opt { optVariables = newVars - , optStandalone = True }) - "FILENAME") - "" -- "File to use for custom header (implies -s)" - , Option "T" ["title-prefix"] (ReqArg (\arg opt -> do @@ -635,13 +625,6 @@ main = do mapM_ (\arg -> UTF8.hPutStrLn stdout arg) args exitWith ExitSuccess - -- warn about deprecated options - case lookup "legacy-header" variables of - Just _ -> UTF8.hPutStrLn stderr $ - "Warning: The -C/--custom-header is deprecated.\n" ++ - "Please transition to using --template instead." - Nothing -> return () - let sources = if ignoreArgs then [] else args datadir <- case mbDataDir of |