diff options
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 |