diff options
-rw-r--r-- | src/Text/Pandoc/Readers/Roff.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Readers/Roff.hs b/src/Text/Pandoc/Readers/Roff.hs index 89c0dd166..7d9aae8b6 100644 --- a/src/Text/Pandoc/Readers/Roff.hs +++ b/src/Text/Pandoc/Readers/Roff.hs @@ -104,12 +104,11 @@ data CellFormat = type TableRow = ([CellFormat], [RoffTokens]) --- TODO parse tables (see man tbl) data RoffToken = MLine [LinePart] - | MEmptyLine - | MMacro MacroKind [Arg] SourcePos - | MTable [TableOption] [TableRow] SourcePos - deriving Show + | MEmptyLine + | MMacro MacroKind [Arg] SourcePos + | MTable [TableOption] [TableRow] SourcePos + deriving Show newtype RoffTokens = RoffTokens { unRoffTokens :: Seq.Seq RoffToken } deriving (Show, Semigroup, Monoid) |