aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2019-05-21 12:35:41 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2019-05-21 12:35:41 -0400
commit932093d1ad953eacbaf704d463f8cad59dcb0d9c (patch)
tree3aaf1e0992579d0bdc88286782c8c1da2c52d7a1 /src
parented73bd28e511f72b17fc84126da85410e13b396b (diff)
downloadpandoc-932093d1ad953eacbaf704d463f8cad59dcb0d9c.tar.gz
Markdown writer: fix small error in ed73bd28
A `do` notation was left in a non-monadic function.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/Markdown.hs7
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