Rakka/Wiki.hs

   1 module Rakka.Wiki
   2     ( WikiPage
   3     , WikiElement(..)
   4     , BlockElement(..)
   5     , InlineElement(..)
   6     )
   7     where
   8
   9 type WikiPage = [WikiElement]
  10
  11
  12 data WikiElement
  13     = Block !BlockElement
  14     | Inline !InlineElement
  15     deriving (Eq, Show)
  16
  17
  18 data BlockElement
  19     = Header {
  20         hdLevel :: !Int
  21       , hdText  :: !String
  22       }
  23     | EmptyLine
  24     deriving (Eq, Show)
  25
  26
  27 data InlineElement
  28     = Text !String
  29     deriving (Eq, Show)