getCurrent :: a -> String -> IO (String,String)
--Keyword -> [(id,date)]
- getList :: a -> String -> IO [(String, String)]
+ getList :: a -> String -> IO [(String, String, String, String)]
--Keyword -> id -> Full text
get :: a -> String -> String -> IO String
data PGB = PGB DBService
-createPGP host database user password = let db = createDBService host database "" user password Nothing in return (PGB db)
+createPGB :: String -> String -> String -> String -> IO PGB
+createPGB host database user password = let db = createDBService host database "" user password Nothing in return (PGB db)
+testDB = createPGB "wave" "wiki" "wiki" "12wiki34db"
+
instance WB PGB where
- getCurrent (PGB db) key = return ("","")
+ getCurrent (PGB db) key = do
+ [[text,date]] <- selectReturnTuples db $ "SELECT fulltext,timestamp FROM curtexts where keyword='"++key++"'"
+ return (text,date)
- getList (PGB db) key = return [("","")]
+ getList (PGB db) key = do
+ list <- selectReturnTuples db $ "SELECT id, timestamp, author, comment from fulltexts where keyword = '"++key++"'"
+ return $ map (\[id,date,author,comment] -> (id,date,author,comment)) list
get (PGB db) key id = return ""
setCurrent (PGB db) key id = return ()
addNew (PGB db) key text = return ""
+