Minor renaming to avoid shadowing.

2021-09-04 10:02:08 -07:00 · 2021-09-04 10:02:08 -07:00 · aaef51707c
commit aaef51707c
parent 481ff8ac44
1 changed files with 2 additions and 2 deletions
--- 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