aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Roff.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Readers/Roff.hs')
-rw-r--r--src/Text/Pandoc/Readers/Roff.hs9
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)