mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages1 Wiki Activity Actions

comment

Browse source
This commit is contained in:
Joey Hess 2015-12-16 13:24:45 -04:00
parent 1e016611de
commit 1a051f4300
Failed to extract signature
1 changed files with 8 additions and 1 deletions

9
Database/Keys.hs
View file

@ -54,7 +54,14 @@ Content
KeyCacheIndex key cache KeyCacheIndex key cache
|] |]
{- Opens the database, creating it if it doesn't exist yet. -} {- Opens the database, creating it if it doesn't exist yet.
-
- Multiple readers and writers can have the database open at the same
- time. Database.Handle deals with the concurrency issues.
- The lock is held while opening the database, so that when
- the database doesn't exist yet, one caller wins the lock and
- can create it undisturbed.
-}
openDb :: Annex DbHandle openDb :: Annex DbHandle
openDb = withExclusiveLock gitAnnexKeysDbLock $ do openDb = withExclusiveLock gitAnnexKeysDbLock $ do
dbdir <- fromRepo gitAnnexKeysDb dbdir <- fromRepo gitAnnexKeysDb