From aaef51707c1b7612232d1d97276862ec473bb686 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 4 Sep 2021 10:02:08 -0700 Subject: Minor renaming to avoid shadowing. --- src/Text/Pandoc/Readers/RTF.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 -- cgit v1.2.3