module Rakka.Wiki
    ( WikiPage
    , WikiElement(..)
    , BlockElement(..)
    , InlineElement(..)
    )
    where

type WikiPage = [WikiElement]


data WikiElement
    = Block !BlockElement
    | Inline !InlineElement
    deriving (Eq, Show)


data BlockElement
    = Header {
        hdLevel :: !Int
      , hdText  :: !String
      }
    | EmptyLine
    deriving (Eq, Show)


data InlineElement
    = Text !String
    deriving (Eq, Show)