more inode cache debugging

This commit is contained in:
Joey Hess 2021-07-26 12:57:35 -04:00
parent e676cd43c0
commit f195f3b541
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 9 additions and 4 deletions

View file

@ -6,6 +6,7 @@
-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
module Annex.Content (
inAnnex,
@ -478,9 +479,13 @@ prepSendAnnex key = withObjectLoc key $ \f -> do
-- change while the transfer is in progress, so
-- generate an inode cache for the starting
-- content.
then maybeToList <$>
withTSDelta (liftIO . genInodeCache f)
else pure cache
then do
fastDebug "Annex.Content" ("found no inode cache for " ++ show f)
maybeToList <$>
withTSDelta (liftIO . genInodeCache f)
else do
fastDebug "Annex.Content" ("found inode cache for " ++ show f)
pure cache
return $ if null cache'
then Nothing
else Just (fromRawFilePath f, sameInodeCache f cache')

View file

@ -11,6 +11,6 @@ AFAICS.) It's the stat of that file that's relevant.
I've added some debugging now, so --debug with a fresh git-annex build
should explain what's going on with the stats.
Use -c annex.debugfilter=Annex.InodeSentinal
Use -c annex.debugfilter=Annex.InodeSentinal,Annex.Content
to limit debug output to the relevant ones.
"""]]