14 import Control.Arrow.ArrowIO
16 import Rakka.Storage.DefaultPage
17 import Subversion.Types
20 data Storage = Storage -- FIXME
23 mkStorage :: IO Storage -- FIXME
24 mkStorage = return Storage
27 getPage :: Storage -> PageName -> IO (Maybe Page)
29 = loadDefaultPage name -- FIXME
32 putPage :: Storage -> Maybe RevNum -> Page -> IO ()
33 putPage sto oldRev page
34 = error "FIXME: not implemented"
37 getPageA :: ArrowIO a => Storage -> a PageName (Maybe Page)
38 getPageA = arrIO . getPage
41 putPageA :: ArrowIO a => Storage -> a (Maybe RevNum, Page) ()
42 putPageA = arrIO2 . putPage