, deletePage'
, getDirContents'
, startIndexManager
+
+ , getAttachment'
+ , putAttachment'
)
where
import qualified Data.Set as S
import Network.HTTP.Lucu
import Network.URI
+import Rakka.Attachment
import Rakka.Page
import Rakka.Storage.DefaultPage
import Rakka.Storage.Repos
= getRepositoryFS repos >>= getYoungestRev
+getAttachment' :: Attachment a =>
+ Repository
+ -> PageName
+ -> String
+ -> Maybe RevNum
+ -> IO (Maybe a)
+getAttachment' = loadAttachmentInRepository
+
+
+putAttachment' :: Attachment a =>
+ Repository
+ -> Maybe String
+ -> Maybe RevNum
+ -> PageName
+ -> String
+ -> a
+ -> IO StatusCode
+putAttachment' = putAttachmentIntoRepository
+
+
startIndexManager :: FilePath -> Repository -> (Page -> IO Document) -> IO (TChan IndexReq)
startIndexManager lsdir repos mkDraft
= do chan <- newTChanIO