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