, ListElement(..)
, ListType(..)
, ListItem
+
+ , Definition(..)
)
where
}
| HorizontalLine
| List !ListElement
+ | DefinitionList ![Definition]
| LeadingSpaced ![InlineElement]
| Paragraph ![InlineElement]
deriving (Eq, Show)
type ListItem = [Either ListElement InlineElement]
+
+
+data Definition
+ = Definition {
+ defTerm :: ![InlineElement]
+ , defDesc :: ![InlineElement]
+ }
+ deriving (Eq, Show)
\ No newline at end of file