diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2017-03-03 13:43:17 +0400 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-03 10:43:17 +0100 |
| commit | 24f027fe8d46c56c02b52254c331e220ebdd88b5 (patch) | |
| tree | 6653c34533c2d4b72ba4add96cc6b2c306a9d4e6 /src/Text/Pandoc/Writers | |
| parent | 4d25bba5f7a620ee6fe43c43d1a14cce4c357858 (diff) | |
| download | pandoc-24f027fe8d46c56c02b52254c331e220ebdd88b5.tar.gz | |
ConTeXt writer: remove unnecessary $ (#3482)
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index ea8b90db3..ea178db92 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -202,9 +202,9 @@ blockToConTeXt (BulletList lst) = do blockToConTeXt (OrderedList (start, style', delim) lst) = do st <- get let level = stOrderedListLevel st - put $ st {stOrderedListLevel = level + 1} + put st {stOrderedListLevel = level + 1} contents <- mapM listItemToConTeXt lst - put $ st {stOrderedListLevel = level} + put st {stOrderedListLevel = level} let start' = if start == 1 then "" else "start=" ++ show start let delim' = case delim of DefaultDelim -> "" |