aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-10-27 11:22:21 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-10-27 11:22:21 -0700
commit0a29da50426859ad19f4d388edab9dc90ebfa1ca (patch)
treea32a0fbb7e0e77381065e4b331af14b46a2e1e4c
parent9678538f45258421d12bf12cbf77e7be17f131c3 (diff)
downloadpandoc-0a29da50426859ad19f4d388edab9dc90ebfa1ca.tar.gz
Remove old comment.
-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)