implemented page listing

[Rakka.git] / Rakka / Storage.hs

diff --git a/Rakka/Storage.hs b/Rakka/Storage.hs
index a89a2afa4676d10778762b7bd61c9f97ea8e2959..9ab15be2f1b88921e17810a9599a55e373d2808e 100644 (file)
--- a/Rakka/Storage.hs
+++ b/Rakka/Storage.hs
@@ -11,6 +11,9 @@ module Rakka.Storage
     , putPageA
     , deletePageA
 
+    , getDirContents
+    , getDirContentsA
+
     , searchPages
 
     , rebuildIndex
@@ -73,6 +76,14 @@ deletePageA :: ArrowIO a => Storage -> a (Maybe String, PageName) StatusCode
 deletePageA = arrIO2 . deletePage
 
 
+getDirContents :: MonadIO m => Storage -> PageName -> Maybe RevNum -> m [PageName]
+getDirContents = ((liftIO .) .) . getDirContents' . stoRepository
+
+
+getDirContentsA :: ArrowIO a => Storage -> a (PageName, Maybe RevNum) [PageName]
+getDirContentsA = arrIO2 . getDirContents
+
+
 searchPages :: MonadIO m => Storage -> Condition -> m [(PageName, RevNum)]
 searchPages sto cond
     = liftIO $