git.iko.soy/typeable/pandoc
on master help sign in
Markdown writer: fix small error in ed73bd28
932093dJesse Rosenthal
src/Text/Pandoc/Writers/Markdown.hs+3−4
compare with master
unifiedsplit
@@ -871,10 +871,9 @@ getKey :: Doc -> Key
871getKey = toKey . render Nothing
871getKey = toKey . render Nothing
872
872
873findUsableIndex :: [Doc] -> Int -> Int
873findUsableIndex :: [Doc] -> Int -> Int
874−findUsableIndex lbls i = do
874+findUsableIndex lbls i = if (text (show i)) `elem` lbls
875− if (text (show i)) `elem` lbls
876− then findUsableIndex lbls (i + 1)
875+ then findUsableIndex lbls (i + 1)
877− else i
876+ else i
878
877
879getNextIndex :: PandocMonad m => MD m Int
878getNextIndex :: PandocMonad m => MD m Int
880getNextIndex = do
879getNextIndex = do