diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Groff.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Groff.hs b/src/Text/Pandoc/Readers/Groff.hs index 9609a490f..f26d86678 100644 --- a/src/Text/Pandoc/Readers/Groff.hs +++ b/src/Text/Pandoc/Readers/Groff.hs @@ -38,6 +38,7 @@ module Text.Pandoc.Readers.Groff , LinePart(..) , Arg , TableOption + , TableFormat , GroffToken(..) , GroffTokens(..) , linePartsToString @@ -89,12 +90,13 @@ data LinePart = RoffStr String type Arg = [LinePart] type TableOption = (String, String) +type TableFormat = String -- TODO parse tables (see man tbl) data GroffToken = MLine [LinePart] | MEmptyLine | MMacro MacroKind [Arg] SourcePos - | MTable [TableOption] [[String]] [[GroffTokens]] SourcePos + | MTable [TableOption] [[TableFormat]] [[GroffTokens]] SourcePos deriving Show newtype GroffTokens = GroffTokens { unGroffTokens :: Seq.Seq GroffToken } @@ -369,13 +371,13 @@ tableOption = do optional (char ',') return (k,v) -tableFormatSpec :: PandocMonad m => GroffLexer m [[String]] +tableFormatSpec :: PandocMonad m => GroffLexer m [[TableFormat]] tableFormatSpec = do speclines <- tableFormatSpecLine `sepBy1` (newline <|> char ',') char '.' return speclines -tableFormatSpecLine :: PandocMonad m => GroffLexer m [String] +tableFormatSpecLine :: PandocMonad m => GroffLexer m [TableFormat] tableFormatSpecLine = do as <- many1 $ skipMany spacetab >> tableColFormat skipMany spacetab |