( getPage'
, putPage'
, deletePage'
+ , getDirContents'
, startIndexManager
)
where
return . S.unions
+getDirContents' :: Repository -> PageName -> Maybe RevNum -> IO [PageName]
+getDirContents' repos name rev
+ = do reposPages <- getDirContentsInRevision repos name rev
+ defaultPages <- getDefaultDirContents name
+ return $ S.toList (reposPages `S.union` defaultPages)
+
+
getCurrentRevNum :: Repository -> IO RevNum
getCurrentRevNum repos
= getRepositoryFS repos >>= getYoungestRev