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

use SQL.addInodeCaches

Browse source 
This avoids deadlock when opening the database handle calls
reconcileStaged.
This commit is contained in:
Joey Hess 2021-07-27 17:34:56 -04:00
parent 73e0cbbb19
commit a306560374
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Database/Keys.hs
View file

@ -384,10 +384,14 @@ reconcileStaged qh = do
ics <- liftIO $ SQL.getInodeCaches key (SQL.ReadHandle qh)
obj <- calcRepo (gitAnnexLocation key)
mobjic <- withTSDelta (liftIO . genInodeCache obj)
let addinodecaches k v = liftIO $
SQL.addInodeCaches k v (SQL.WriteHandle qh)
-- Like inAnnex, check the annex object is unmodified
-- when annex.thin is set.
keypopulated <- ifM (annexThin <$> Annex.getGitConfig)
( maybe (pure False) (\objic -> isUnmodifiedLowLevel addInodeCaches key obj objic ics) mobjic
( case mobjic of
Just objic -> isUnmodifiedLowLevel addinodecaches key obj objic ics
Nothing -> pure False
, pure (isJust mobjic)
)
p <- fromRepo $ fromTopFilePath file
@ -396,10 +400,8 @@ reconcileStaged qh = do
(True, False) ->
populatePointerFile (Restage True) key obj p >>= \case
Nothing -> return ()
Just ic -> liftIO $
SQL.addInodeCaches key
(catMaybes [Just ic, mobjic])
(SQL.WriteHandle qh)
Just ic -> addinodecaches key
(catMaybes [Just ic, mobjic])
(False, True) -> depopulatePointerFile key p
_ -> return ()