X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FStorage.hs;fp=Rakka%2FStorage.hs;h=d830131d962b5c2eeb6fb3f6acc43e113a14650a;hb=484e15845d9c06d0fa62044d3b6b3ff8c78a6e04;hp=0000000000000000000000000000000000000000;hpb=35f9c2ec3c1e81e42737c54f3f1a8230427691c6;p=Rakka.git

diff --git a/Rakka/Storage.hs b/Rakka/Storage.hs
new file mode 100644
index 0000000..d830131
--- /dev/null
+++ b/Rakka/Storage.hs
@@ -0,0 +1,29 @@
+module Rakka.Storage
+    ( Storage
+
+    , mkStorage -- private
+
+    , getPage
+    , savePage
+    )
+    where
+
+import           Rakka.Page
+import           Rakka.Storage.DefaultPage
+
+
+data Storage = Storage -- FIXME
+
+
+mkStorage :: IO Storage -- FIXME
+mkStorage = return Storage
+
+
+getPage :: Storage -> PageName -> IO (Maybe Page)
+getPage sto name
+    = loadDefaultPage name -- FIXME
+
+
+savePage :: Storage -> PageName -> Page -> IO ()
+savePage sto name page
+    = error "FIXME: not implemented"