summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/App/CommandLineOptions.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2019-10-06 21:31:28 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2019-10-06 21:31:28 -0700
commitfcfdc8210f2376f99fdefb29833ae051e196a13e (patch)
tree75cefa68447ebe888acbcae6bb7161a478031e46 /src/Text/Pandoc/App/CommandLineOptions.hs
parentcf1703396c626861fb1904bf5159e04d1ecc79b8 (diff)
Text.Pandoc.App.Opt: Remove optBaseHeaderLevel from Opt.
We now just use optShiftHeadingLevelBy, to avoid redundancy.
Diffstat (limited to 'src/Text/Pandoc/App/CommandLineOptions.hs')
-rw-r--r--src/Text/Pandoc/App/CommandLineOptions.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/App/CommandLineOptions.hs b/src/Text/Pandoc/App/CommandLineOptions.hs
index 43080c8c6..a6203accb 100644
--- a/src/Text/Pandoc/App/CommandLineOptions.hs
+++ b/src/Text/Pandoc/App/CommandLineOptions.hs
@@ -454,7 +454,7 @@ options =
"Use --shift-heading-level-by instead."
case safeRead arg of
Just t | t > 0 && t < 6 ->
- return opt{ optBaseHeaderLevel = t }
+ return opt{ optShiftHeadingLevelBy = t - 1 }
_ -> E.throwIO $ PandocOptionError
"base-header-level must be 1-5")
"NUMBER")