23 import Data.CaseInsensitive (CI)
24 import Data.Text (Text)
28 type WikiPage = [BlockElement]
32 | Inline !InlineElement
35 type Attribute = (CI Text, Text)
45 , listItems ∷ ![ListItem]
47 | DefinitionList ![Definition]
48 | Preformatted ![InlineElement]
49 | Paragraph ![InlineElement]
50 | Div ![Attribute] ![Element]
52 | BlockCmd !BlockCommand
57 | Italic ![InlineElement]
58 | Bold ![InlineElement]
60 objLinkPage ∷ !PageName
61 , objLinkText ∷ !(Maybe Text)
64 linkPage ∷ !(Maybe PageName)
65 , linkFragment ∷ !(Maybe Text)
66 , linkText ∷ !(Maybe Text)
70 , extLinkText ∷ !(Maybe Text)
72 | LineBreak ![Attribute]
73 | Span ![Attribute] ![InlineElement]
75 imgSource ∷ !(Either URI PageName)
76 , imgAlt ∷ !(Maybe Text)
78 | Anchor ![Attribute] ![InlineElement]
81 | InlineCmd !InlineCommand
89 type ListItem = [Element]
93 defTerm ∷ ![InlineElement]
94 , defDesc ∷ ![InlineElement]
106 , bCmdAttributes ∷ ![Attribute]
107 , bCmdContents ∷ ![BlockElement]
114 , iCmdAttributes :: ![Attribute]
115 , iCmdContents :: ![InlineElement]