X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FWiki.hs;fp=Rakka%2FWiki.hs;h=f08aa96b5a8d363434d28738131b8006c36c644d;hb=8a7556db44cd91ac0bb52279472bcc2abaa3f18e;hp=0000000000000000000000000000000000000000;hpb=885faf1cabc3f79c90e1885268e2a9138b1ddefb;p=Rakka.git

diff --git a/Rakka/Wiki.hs b/Rakka/Wiki.hs
new file mode 100644
index 0000000..f08aa96
--- /dev/null
+++ b/Rakka/Wiki.hs
@@ -0,0 +1,29 @@
+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)