wrote more code...

[Rakka.git] / Rakka / Wiki.hs

diff --git a/Rakka/Wiki.hs b/Rakka/Wiki.hs
new file mode 100644 (file)
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)