@@ -104,12 +104,11 @@ data CellFormat =
104104
105105type TableRow = ([CellFormat], [RoffTokens])
106106
107−-- TODO parse tables (see man tbl)
108107data RoffToken = MLine [LinePart]
109− | MEmptyLine
110− | MMacro MacroKind [Arg] SourcePos
111− | MTable [TableOption] [TableRow] SourcePos
112− deriving Show
108+ | MEmptyLine
109+ | MMacro MacroKind [Arg] SourcePos
110+ | MTable [TableOption] [TableRow] SourcePos
111+ deriving Show
113112
114113newtype RoffTokens = RoffTokens { unRoffTokens :: Seq.Seq RoffToken }
115114 deriving (Show, Semigroup, Monoid)