Rakka/Storage.hs

   1 module Rakka.Storage
   2     ( Storage
   3
   4     , mkStorage -- private
   5
   6     , getPage
   7     , savePage
   8     )
   9     where
  10
  11 import           Rakka.Page
  12 import           Rakka.Storage.DefaultPage
  13
  14
  15 data Storage = Storage -- FIXME
  16
  17
  18 mkStorage :: IO Storage -- FIXME
  19 mkStorage = return Storage
  20
  21
  22 getPage :: Storage -> PageName -> IO (Maybe Page)
  23 getPage sto name
  24     = loadDefaultPage name -- FIXME
  25
  26
  27 savePage :: Storage -> PageName -> Page -> IO ()
  28 savePage sto name page
  29     = error "FIXME: not implemented"