Wiki.hs

   1 module Wiki (
   2
   3 ) where
   4
   5 class WikiBackend a where
   6         --Keyword -> Full text
   7         getCurrent :: a -> String -> IO String
   8
   9         --Keyword -> [(id,date)]
  10         getList :: a -> String -> IO [(Int, String)]
  11
  12         --Keyword -> id -> Full text
  13         get :: a -> String -> Int -> IO String
  14
  15         --Keyword -> id -> ()
  16         setCurrent :: a -> String -> Int -> IO ()
  17
  18         --Keyword -> Full text -> id
  19         addNew :: String -> String -> IO Int
  20