+ addNew :: 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)
+
+
+instance WB PGB where
+
+ getCurrent (PGB db) key = return ("","")
+
+ getList (PGB db) key = return [("","")]
+
+ get (PGB db) key id = return ""
+
+ setCurrent (PGB db) key id = return ()