implemented more markup stuffs

[Rakka.git] / Rakka / Wiki.hs

diff --git a/Rakka/Wiki.hs b/Rakka/Wiki.hs
index 9f8bcdce7d9d47268d557521f7e15e05e0a97efa..b8be3a3fabf8bc5d3a56ef77cdd9207da6c81baf 100644 (file)
--- a/Rakka/Wiki.hs
+++ b/Rakka/Wiki.hs
@@ -25,13 +25,15 @@ data BlockElement
     | HorizontalLine
     | List !ListElement
     | DefinitionList ![Definition]
-    | LeadingSpaced ![InlineElement]
+    | Preformatted ![InlineElement]
     | Paragraph ![InlineElement]
     deriving (Eq, Show)
 
 
 data InlineElement
     = Text !String
+    | Italic ![InlineElement]
+    | Bold ![InlineElement]
     | PageLink {
         linkPage     :: !(Maybe PageName)
       , linkFragment :: !(Maybe String)