adding the main file and some minor changes

[yawbih.git] / Wiki.hs

diff --git a/Wiki.hs b/Wiki.hs
index bcfd23694a025b65363372dbb3f4f1ac0fa48978..1708f57f7d094276c3afd7dcc01c81e05f315a39 100644 (file)
--- a/Wiki.hs
+++ b/Wiki.hs
@@ -11,7 +11,7 @@ class Backend a where
        --Keyword -> (Full text,date)
        getCurrent :: a -> String -> IO (Maybe (String,String))
 
-       --Keyword -> [(id,date)]
+       --Keyword -> [(id,date,author,comment)]
        getList :: a -> String -> IO [(String, String, String, String)]
 
        --Keyword -> id -> Full text
@@ -23,6 +23,12 @@ class Backend a where
        --Keyword -> Full text -> id
        update :: a -> String -> String -> String -> String -> IO String
 
+data Markup = Text String
+       | Bold String
+       | Paragraph [Markup]
+
+type Document = [Markup]
+
 newtype PGB = PGB DBService
 
 createPGB :: String -> String -> String -> String -> IO PGB