From e36bf63ff310b307b1f62f86fc87307e18c4677a Mon Sep 17 00:00:00 2001 From: Michael Andreen Date: Sat, 4 Dec 2004 21:35:09 +0000 Subject: [PATCH] class --- Wiki.hs | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) 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 --} -- 2.39.2