From 932093d1ad953eacbaf704d463f8cad59dcb0d9c Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Tue, 21 May 2019 12:35:41 -0400 Subject: Markdown writer: fix small error in ed73bd28 A `do` notation was left in a non-monadic function. --- src/Text/Pandoc/Writers/Markdown.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/Text/Pandoc/Writers/Markdown.hs') 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 -- cgit v1.2.3