Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Markdown writer: fix small error in ed73bd28

Browse source 
A `do` notation was left in a non-monadic function.
This commit is contained in:
Jesse Rosenthal 2019-05-21 12:35:41 -04:00
parent ed73bd28e5
commit 932093d1ad
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Writers/Markdown.hs
View file

@ -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