associated files database

This commit is contained in:
Joey Hess 2015-12-07 13:42:03 -04:00
parent 63c466449f
commit a6e5ee0d0e
Failed to extract signature
3 changed files with 105 additions and 1 deletions

View file

@ -59,7 +59,7 @@ newPass u = isJust <$> tryExclusiveLock (gitAnnexFsckDbLock u) go
go = liftIO . void . tryIO . removeDirectoryRecursive
=<< fromRepo (gitAnnexFsckDbDir u)
{- Opens the database, creating it atomically if it doesn't exist yet. -}
{- Opens the database, creating it if it doesn't exist yet. -}
openDb :: UUID -> Annex FsckHandle
openDb u = do
dbdir <- fromRepo (gitAnnexFsckDbDir u)