)
where
+import Rakka.Page
+
+
type WikiPage = [WikiElement]
data BlockElement
- = Header {
- hdLevel :: !Int
- , hdText :: !String
+ = Heading {
+ headingLevel :: !Int
+ , headingText :: !String
}
| EmptyLine
deriving (Eq, Show)
data InlineElement
= Text !String
+ | PageLink {
+ linkPage :: !(Maybe PageName)
+ , linkFragment :: !(Maybe String)
+ , linkText :: !(Maybe String)
+ }
deriving (Eq, Show)