lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-24 00:15:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

Minor renaming to avoid shadowing.

Browse Source
This commit is contained in:
John MacFarlane
2021-09-04 11:06:01 -07:00
parent 481ff8ac44
commit aaef51707c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/RTF.hs
+2 -2
View File
@@ -207,8 +207,8 @@ parseRTF = do
bs <- (case toks of
-- if we start with {\rtf1...}, parse that and ignore
-- what follows (which in certain cases can be non-RTF content)
tok@(Tok _ (Grouped (Tok _ (ControlWord "rtf" (Just 1)) : _))) : _
-> foldM processTok mempty [tok]
rtftok@(Tok _ (Grouped (Tok _ (ControlWord "rtf" (Just 1)) : _))) : _
-> foldM processTok mempty [rtftok]
_ -> foldM processTok mempty toks)
>>= emitBlocks
unclosed <- closeContainers