X-Git-Url: https://ruin.nu/git/index.pl?a=blobdiff_plain;f=Wiki.hs;h=1708f57f7d094276c3afd7dcc01c81e05f315a39;hb=38f06e9262e9b2dd14906492539006602225d49e;hp=bcfd23694a025b65363372dbb3f4f1ac0fa48978;hpb=80f11c089c02ef7a3f13404121715ca0f4d4d281;p=yawbih.git

diff --git a/Wiki.hs b/Wiki.hs
index bcfd236..1708f57 100644
--- 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