where
import Data.Generics
+import Network.URI
import Rakka.Page
| Preformatted ![InlineElement]
| Paragraph ![InlineElement]
| Div ![Attribute] ![BlockElement]
+ | EmptyBlock
| BlockCmd !BlockCommand
deriving (Eq, Show, Typeable, Data)
, linkFragment :: !(Maybe String)
, linkText :: !(Maybe String)
}
+ | ExternalLink {
+ extLinkURI :: !URI
+ , extLinkText :: !(Maybe String)
+ }
| LineBreak ![Attribute]
| Span ![Attribute] ![InlineElement]
| Image ![Attribute]
| Anchor ![Attribute] ![InlineElement]
+ | EmptyInline
| InlineCmd !InlineCommand
deriving (Eq, Show, Typeable, Data)