Basic stuff works now

[yawbih.git] / Wiki.hs

diff --git a/Wiki.hs b/Wiki.hs
index 1708f57f7d094276c3afd7dcc01c81e05f315a39..d6ece0dc5f4d94829dd09bfd86f657be3927f781 100644 (file)
--- a/Wiki.hs
+++ b/Wiki.hs
@@ -1,6 +1,7 @@
 module Wiki (
-       Backend
+       Backend (getCurrent,getList,get,setCurrent,update)
        ,PGB
+       ,createPGB
 
 ) where
 
@@ -53,20 +54,16 @@ instance Backend PGB where
 
        setCurrent (PGB db) key id = do
                full <- selectReturnTuples db $ "SELECT keyword FROM fulltexts WHERE keyword="++tov key++" AND id='"++id++"'"
-               cur <- selectReturnTuples db $ "SELECT keyword FROM curtexts WHERE keyword='"++tov key++"'"
+               cur <- selectReturnTuples db $ "SELECT keyword FROM curtexts WHERE keyword="++tov key
                case full of
                        [[]] -> do
-                               print "No text found with this id and key"
                                return False
                        _  -> do
                                rows <- case cur of
-                                       [] -> do
-                                               print "No link found in current, inserting"
-                                               execute db $ "INSERT INTO current (keyword, id) VALUES ("++tov id++","++tov key++")"
+                                       [[]] -> do
+                                               execute db $ "INSERT INTO current (keyword, id) VALUES ("++tov key++","++tov id++")"
                                        _  -> do
-                                               print "Link found in current, updating"
                                                execute db $ "UPDATE current SET id = "++tov id++" WHERE keyword = "++tov key
-                               print rows
                                if rows == 1 then return True
                                        else return False