diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-26 21:37:42 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-26 21:37:42 -0700 |
| commit | cbeef9f5caa0b96e4dfaa072d61bc8473865e003 (patch) | |
| tree | 8419837cc7457d4aa6eb587260139c773d43113e /src/Text/Pandoc/Readers | |
| parent | e0f985bb2139f142223f8d21e28a3a6bf4605cb7 (diff) | |
| download | pandoc-cbeef9f5caa0b96e4dfaa072d61bc8473865e003.tar.gz | |
Roff tokenizer: skip .sp in tables.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Roff.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index 9d71c98b3..6062328f0 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -364,7 +364,8 @@ lexTableRows :: PandocMonad m => RoffLexer m [TableRow] lexTableRows = do aligns <- tableFormatSpec spaces - skipMany lexComment + skipMany $ lexComment + <|> try (mempty <$ (string ".sp" >> skipMany spaceChar >> newline)) spaces rows <- many (notFollowedBy (try (string ".TE") <|> try (string ".T&")) >> tableRow) |