aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-09-03 19:52:52 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-09-03 19:52:52 -0700
commite5d0b702c7d8b11f8ed4ecf10afa320103473dd0 (patch)
treeb3115b5d843412c40dd2db73ef773b68cf10a750 /src/Text/Pandoc/Readers
parentb82a01b6883c1f6a9ce5d3edd80d5a2453ecef9e (diff)
downloadpandoc-e5d0b702c7d8b11f8ed4ecf10afa320103473dd0.tar.gz
RTF reader: Ignore `\pgdsc` group.
Otherwise we get style names treated as test.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/RTF.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/RTF.hs b/src/Text/Pandoc/Readers/RTF.hs
index 0e7fbac5a..5e5799b49 100644
--- a/src/Text/Pandoc/Readers/RTF.hs
+++ b/src/Text/Pandoc/Readers/RTF.hs
@@ -411,6 +411,7 @@ processTok bs (Tok pos tok') = do
-- eject any previous list items...sometimes TextEdit
-- doesn't put in a \par
emitBlocks bs
+ Grouped (Tok _ (ControlWord "pgdsc" _) : _) -> pure bs
Grouped (Tok _ (ControlWord "colortbl" _) : _) -> pure bs
Grouped (Tok _ (ControlWord "listtable" _) : toks) ->
bs <$ inGroup (handleListTable toks)