diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2019-05-21 12:35:41 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2019-05-21 12:35:41 -0400 |
| commit | 932093d1ad953eacbaf704d463f8cad59dcb0d9c (patch) | |
| tree | 3aaf1e0992579d0bdc88286782c8c1da2c52d7a1 /src/Text/Pandoc/Writers/Markdown.hs | |
| parent | ed73bd28e511f72b17fc84126da85410e13b396b (diff) | |
| download | pandoc-932093d1ad953eacbaf704d463f8cad59dcb0d9c.tar.gz | |
Markdown writer: fix small error in ed73bd28
A `do` notation was left in a non-monadic function.
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown.hs')
| -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 |