aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Roff.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-10-26 22:55:48 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-10-26 22:55:48 -0700
commit36f1c4f39bfcebf68c5ba8f0d1c324629a3feb9e (patch)
tree44c68cb2540f1ca0d68c70d38b00388cc535c7d3 /src/Text/Pandoc/Readers/Roff.hs
parent8c4812be3f5bff6f75339578a042c9f648896b04 (diff)
downloadpandoc-36f1c4f39bfcebf68c5ba8f0d1c324629a3feb9e.tar.gz
Roff tokenizer: allow spaces after table row format spec.
Diffstat (limited to 'src/Text/Pandoc/Readers/Roff.hs')
-rw-r--r--src/Text/Pandoc/Readers/Roff.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs
index c310da558..c05b87b28 100644
--- a/src/Text/Pandoc/Readers/Roff.hs
+++ b/src/Text/Pandoc/Readers/Roff.hs
@@ -411,7 +411,7 @@ tableFormatSpec = do
tableFormatSpecLine :: PandocMonad m => RoffLexer m [CellFormat]
tableFormatSpecLine =
- many1 $ try $ skipMany spacetab >> tableColFormat
+ many1 $ try $ skipMany spacetab *> tableColFormat <* skipMany spacetab
tableColFormat :: PandocMonad m => RoffLexer m CellFormat
tableColFormat = do