module Rakka.Storage.Impl
( getPage'
, putPage'
+ , deletePage'
, startIndexManager
)
where
putPage' = putPageIntoRepository
+deletePage' :: Repository -> PageName -> IO StatusCode
+deletePage' = deletePageFromRepository
+
+
findAllPages :: Repository -> RevNum -> IO (Set PageName)
findAllPages _ 0 = findAllDefaultPages
findAllPages repos rev = do reposPages <- findAllPagesInRevision repos rev
Just page
-> do draft <- mkDraft page
putDocument index draft [CleaningPut]
- infoM logger ("Indexed page " ++ name ++ " of revision " ++ show (entityRevision page))
+ infoM logger ("Indexed page " ++ name ++ " of revision " ++ show (pageRevision page))
updateIndexRev :: FilePath -> (RevNum -> IO RevNum) -> IO ()