X-Git-Url: https://ruin.nu/git/?p=yawbih.git;a=blobdiff_plain;f=Wiki.hs;h=c4b7166f377a508ac021b55fcedfb1e024733269;hp=916829e11a872db3fd7b99d37fb5e68954bf844e;hb=e36bf63ff310b307b1f62f86fc87307e18c4677a;hpb=0bf2b690d5e8399175531005f9ca03df947cf878

diff --git a/Wiki.hs b/Wiki.hs
index 916829e..c4b7166 100644
--- a/Wiki.hs
+++ b/Wiki.hs
@@ -2,20 +2,19 @@ module Wiki (
 
 ) where
 
-import Graphics.UI.WXCore.Db
+class WikiBackend a where
+	--Keyword -> Full text
+	getCurrent :: a -> String -> IO String
 
-{-Keyword -> Full text
-getCurrent :: String -> IO String
+	--Keyword -> [(id,date)]
+	getList :: a -> String -> IO [(Int, String)]
 
---Keyword -> (id,date)
-getList :: String -> IO (Int, String)
+	--Keyword -> id -> Full text
+	get :: a -> String -> Int -> IO String
 
---Keyword -> id -> Full Text
-get :: String -> Int -> IO String
+	--Keyword -> id -> ()
+	setCurrent :: a -> String -> Int -> IO ()
 
---Keyword -> id -> ()
-setCurrent :: String -> Int -> IO ()
+	--Keyword -> Full text -> id
+	addNew :: String -> String -> IO Int
 
---Keyword -> Full text -> id
-addNew :: String -> String -> IO Int
--}