From cf1703396c626861fb1904bf5159e04d1ecc79b8 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 6 Oct 2019 16:53:59 -0700
Subject: [PATCH] Text.Pandoc.App.Opt: Change optShiftHeadingLevel to
optShiftHeadingLevelBy...
to match the option.
---
src/Text/Pandoc/App.hs | 2 +-
src/Text/Pandoc/App/CommandLineOptions.hs | 2 +-
src/Text/Pandoc/App/Opt.hs | 4 ++--
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index b96fd5306..47fb155eb 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -232,7 +232,7 @@ convertWithOpts opts = do
let transforms = (case optBaseHeaderLevel opts of
x | x > 1 -> (headerShift (x - 1) :)
| otherwise -> id) .
- (case optShiftHeadingLevel opts of
+ (case optShiftHeadingLevelBy opts of
0 -> id
x -> (headerShift x :)) .
(if optStripEmptyParagraphs opts
diff --git a/src/Text/Pandoc/App/CommandLineOptions.hs b/src/Text/Pandoc/App/CommandLineOptions.hs
index abb73ec92..43080c8c6 100644
--- a/src/Text/Pandoc/App/CommandLineOptions.hs
+++ b/src/Text/Pandoc/App/CommandLineOptions.hs
@@ -441,7 +441,7 @@ options =
(\arg opt ->
case safeRead arg of
Just t ->
- return opt{ optShiftHeadingLevel = t }
+ return opt{ optShiftHeadingLevelBy = t }
_ -> E.throwIO $ PandocOptionError
"shift-heading-level-by takes an integer argument")
"NUMBER")
diff --git a/src/Text/Pandoc/App/Opt.hs b/src/Text/Pandoc/App/Opt.hs
index 86ef60d2b..bbcc65395 100644
--- a/src/Text/Pandoc/App/Opt.hs
+++ b/src/Text/Pandoc/App/Opt.hs
@@ -50,7 +50,7 @@ data Opt = Opt
, optReader :: Maybe String -- ^ Reader format
, optWriter :: Maybe String -- ^ Writer format
, optTableOfContents :: Bool -- ^ Include table of contents
- , optShiftHeadingLevel :: Int -- ^ Shift heading level by
+ , optShiftHeadingLevelBy :: Int -- ^ Shift heading level by
, optBaseHeaderLevel :: Int -- ^ Base header level
, optTemplate :: Maybe FilePath -- ^ Custom template
, optVariables :: [(String,String)] -- ^ Template variables to set
@@ -125,7 +125,7 @@ defaultOpts = Opt
, optReader = Nothing
, optWriter = Nothing
, optTableOfContents = False
- , optShiftHeadingLevel = 0
+ , optShiftHeadingLevelBy = 0
, optBaseHeaderLevel = 1
, optTemplate = Nothing
, optVariables = []