Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

ConTeXt writer: remove unnecessary $ (#3482)

Browse source
This commit is contained in:
Alexander Krotov 2017-03-03 13:43:17 +04:00 • committed by John MacFarlane
parent 4d25bba5f7
commit 24f027fe8d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/ConTeXt.hs
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 -> ""