diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-09-04 10:02:08 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-09-04 11:06:01 -0700 |
| commit | aaef51707c1b7612232d1d97276862ec473bb686 (patch) | |
| tree | bdb3b1181c91ae25b78dad881ccddcc692a8f9ea /src/Text/Pandoc | |
| parent | 481ff8ac44cff104494b89589326b6cb78565cbf (diff) | |
| download | pandoc-aaef51707c1b7612232d1d97276862ec473bb686.tar.gz | |
Minor renaming to avoid shadowing.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/RTF.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/RTF.hs b/src/Text/Pandoc/Readers/RTF.hs index e577ee70b..26a132758 100644 --- a/src/Text/Pandoc/Readers/RTF.hs +++ b/src/Text/Pandoc/Readers/RTF.hs @@ -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 |