, ListElement(..)
, ListType(..)
, ListItem
+
+ , Definition(..)
)
where
}
| HorizontalLine
| List !ListElement
- | LeadingSpaced ![InlineElement]
+ | DefinitionList ![Definition]
+ | Preformatted ![InlineElement]
| Paragraph ![InlineElement]
deriving (Eq, Show)
data InlineElement
= Text !String
+ | Italic ![InlineElement]
+ | Bold ![InlineElement]
| PageLink {
linkPage :: !(Maybe PageName)
, linkFragment :: !(Maybe String)
type ListItem = [Either ListElement InlineElement]
+
+
+data Definition
+ = Definition {
+ defTerm :: ![InlineElement]
+ , defDesc :: ![InlineElement]
+ }
+ deriving (Eq, Show)
\ No newline at end of file