diff options
Diffstat (limited to 'src/Text/Pandoc/App')
| -rw-r--r-- | src/Text/Pandoc/App/CommandLineOptions.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/App/Opt.hs | 2 |
2 files changed, 1 insertions, 3 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") diff --git a/src/Text/Pandoc/App/Opt.hs b/src/Text/Pandoc/App/Opt.hs index bbcc65395..126f5db4c 100644 --- a/src/Text/Pandoc/App/Opt.hs +++ b/src/Text/Pandoc/App/Opt.hs @@ -51,7 +51,6 @@ data Opt = Opt , optWriter :: Maybe String -- ^ Writer format , optTableOfContents :: Bool -- ^ Include table of contents , optShiftHeadingLevelBy :: Int -- ^ Shift heading level by - , optBaseHeaderLevel :: Int -- ^ Base header level , optTemplate :: Maybe FilePath -- ^ Custom template , optVariables :: [(String,String)] -- ^ Template variables to set , optMetadata :: [(String, String)] -- ^ Metadata fields to set @@ -126,7 +125,6 @@ defaultOpts = Opt , optWriter = Nothing , optTableOfContents = False , optShiftHeadingLevelBy = 0 - , optBaseHeaderLevel = 1 , optTemplate = Nothing , optVariables = [] , optMetadata = [] |