, mkStorage -- private
, getPage
- , savePage
+ , putPage
+
+ , getPageA
+ , putPageA
)
where
+import Control.Arrow.ArrowIO
import Rakka.Page
import Rakka.Storage.DefaultPage
+import Subversion.Types
data Storage = Storage -- FIXME
= loadDefaultPage name -- FIXME
-savePage :: Storage -> PageName -> Page -> IO ()
-savePage sto name page
+putPage :: Storage -> Maybe RevNum -> Page -> IO ()
+putPage sto oldRev page
= error "FIXME: not implemented"
+
+
+getPageA :: ArrowIO a => Storage -> a PageName (Maybe Page)
+getPageA = arrIO . getPage
+
+
+putPageA :: ArrowIO a => Storage -> a (Maybe RevNum, Page) ()
+putPageA = arrIO2 . putPage
\ No newline at end of file