- | Span ![Attribute] ![InlineElement]
- | Image ![Attribute]
- | Anchor ![Attribute] ![InlineElement]
- | InlineCmd !InlineCommand
- deriving (Eq, Show, Typeable, Data)
-
-
-data ListElement
- = ListElement {
- listType :: !ListType
- , listItems :: ![ListItem]
+ | Span ![Attribute] ![InlineElement]
+ | Image {
+ imgSource ∷ !(Either URI PageName)
+ , imgAlt ∷ !(Maybe Text)