Still in early development...

[Rakka.git] / Rakka / Storage.hs

diff --git a/Rakka/Storage.hs b/Rakka/Storage.hs
new file mode 100644 (file)
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"