more inode cache debugging
This commit is contained in:
parent
e676cd43c0
commit
f195f3b541
2 changed files with 9 additions and 4 deletions
|
@ -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')
|
||||
|
|
|
@ -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.
|
||||
"""]]
|
||||
|
|
Loading…
Add table
Reference in a new issue