--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
--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