X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FStorage.hs;h=9ab15be2f1b88921e17810a9599a55e373d2808e;hp=a89a2afa4676d10778762b7bd61c9f97ea8e2959;hb=b101c0a9aad609704eaa9157fe809be80d2aacf7;hpb=354a3b69406608a2570060bdbdbc65e83260c8ff

diff --git a/Rakka/Storage.hs b/Rakka/Storage.hs
index a89a2af..9ab15be 100644
--- 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 $