10 --Keyword -> (Full text,date)
11 getCurrent :: a -> String -> IO (String,String)
13 --Keyword -> [(id,date)]
14 getList :: a -> String -> IO [(String, String)]
16 --Keyword -> id -> Full text
17 get :: a -> String -> String -> IO String
20 setCurrent :: a -> String -> String -> IO ()
22 --Keyword -> Full text -> id
23 addNew :: a -> String -> String -> IO String
25 data PGB = PGB DBService
27 createPGP host database user password = let db = createDBService host database "" user password Nothing in return (PGB db)
32 getCurrent (PGB db) key = return ("","")
34 getList (PGB db) key = return [("","")]
36 get (PGB db) key id = return ""
38 setCurrent (PGB db) key id = return ()
40 addNew (PGB db) key text = return ""