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

Minor renaming to avoid shadowing.

Browse source
This commit is contained in:
John MacFarlane 2021-09-04 10:02:08 -07:00
parent 481ff8ac44
commit aaef51707c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Readers/RTF.hs
View file

@ -207,8 +207,8 @@ parseRTF = do
bs <- (case toks of bs <- (case toks of
-- if we start with {\rtf1...}, parse that and ignore -- if we start with {\rtf1...}, parse that and ignore
-- what follows (which in certain cases can be non-RTF content) -- what follows (which in certain cases can be non-RTF content)
tok@(Tok _ (Grouped (Tok _ (ControlWord "rtf" (Just 1)) : _))) : _ rtftok@(Tok _ (Grouped (Tok _ (ControlWord "rtf" (Just 1)) : _))) : _
-> foldM processTok mempty [tok] -> foldM processTok mempty [rtftok]
_ -> foldM processTok mempty toks) _ -> foldM processTok mempty toks)
>>= emitBlocks >>= emitBlocks
unclosed <- closeContainers unclosed <- closeContainers