Rakka/Wiki.hs

   1 module Rakka.Wiki
   2     ( WikiPage
   3     , BlockElement(..)
   4     , InlineElement(..)
   5     )
   6     where
   7
   8 import           Rakka.Page
   9
  10
  11 type WikiPage = [BlockElement]
  12
  13
  14 data BlockElement
  15     = Heading {
  16         headingLevel :: !Int
  17       , headingText  :: !String
  18       }
  19     | Paragraph ![InlineElement]
  20     deriving (Eq, Show)
  21
  22
  23 data InlineElement
  24     = Text !String
  25     | PageLink {
  26         linkPage     :: !(Maybe PageName)
  27       , linkFragment :: !(Maybe String)
  28       , linkText     :: !(Maybe String)
  29       }
  30     deriving (Eq, Show)