lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-26 02:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

ConTeXt writer: remove unnecessary $ (#3482)

Browse Source
This commit is contained in:
Alexander Krotov
2017-03-03 10:43:17 +01:00
committed by John MacFarlane
parent 4d25bba5f7
commit 24f027fe8d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Writers/ConTeXt.hs
+2 -2
View File
@@ -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 -> ""