git.iko.soy/typeable/pandoc
on master help sign in
Markdown writer: fix small error in ed73bd28

A `do` notation was left in a non-monadic function.

commit932093d1ad953eacbaf704d463f8cad59dcb0d9c authorJesse Rosenthal <jrosenthal@jhu.edu> dateTue 21 May 2019, 12:35 (7 years ago) parented73bd2
1 file changed+3−4
compare with master
unifiedsplit
src/Text/Pandoc/Writers/Markdown.hs+3−4
src/Text/Pandoc/Writers/Markdown.hs+3−4
@@ -871,10 +871,9 @@ getKey :: Doc -> Key
871871getKey = toKey . render Nothing
872872
873873findUsableIndex :: [Doc] -> Int -> Int
874−findUsableIndex lbls i = do
875− if (text (show i)) `elem` lbls
876− then findUsableIndex lbls (i + 1)
877− else i
874+findUsableIndex lbls i = if (text (show i)) `elem` lbls
875+ then findUsableIndex lbls (i + 1)
876+ else i
878877
879878getNextIndex :: PandocMonad m => MD m Int
880879getNextIndex = do