mkStorage :: FilePath -> Repository -> (Page -> IO Document) -> IO Storage
mkStorage lsdir repos mkDraft
- = do let indexDir = lsdir `combine` "index"
- revFile = lsdir `combine` "indexRev"
+ = do let indexDir = lsdir </> "index"
+ revFile = lsdir </> "indexRev"
revLocked <- newTVarIO False
indexDB <- openIndex indexDir revFile
when (newRev /= oldRev) (syncIndex' oldRev newRev)
return oldRev -- FIXME
+ --return newRev
where
syncIndex' :: RevNum -> RevNum -> IO ()
syncIndex' oldRev newRev
= do pages <- findChangedPages sto oldRev newRev
- print pages
+ print pages -- FIXME
updateIndexRev :: Storage -> (RevNum -> IO RevNum) -> IO ()