diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 046b82260..72d083734 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -871,10 +871,9 @@ getKey :: Doc -> Key getKey = toKey . render Nothing findUsableIndex :: [Doc] -> Int -> Int -findUsableIndex lbls i = do - if (text (show i)) `elem` lbls - then findUsableIndex lbls (i + 1) - else i +findUsableIndex lbls i = if (text (show i)) `elem` lbls + then findUsableIndex lbls (i + 1) + else i getNextIndex :: PandocMonad m => MD m Int getNextIndex = do |