more inode cache debugging

diff --git a/Annex/Content.hs b/Annex/Content.hs
index 076fce1edb6758599a392baf88585d88a19cebd4..39b9d52a7eb098291c940448d6a3a7a66ce0ac9f 100644 (file)
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -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')

diff --git a/doc/bugs/__34__failed_to_send_content_to_remote__34__/comment_16_6ef33d110d709e46768549c59b02841a._comment b/doc/bugs/__34__failed_to_send_content_to_remote__34__/comment_16_6ef33d110d709e46768549c59b02841a._comment
index 60ca23050b783ccc5e86cd7bcb5512bdca076317..49d74826e8c6e4cd639e20523896bab0d11f867a 100644 (file)
--- a/doc/bugs/__34__failed_to_send_content_to_remote__34__/comment_16_6ef33d110d709e46768549c59b02841a._comment
+++ b/doc/bugs/__34__failed_to_send_content_to_remote__34__/comment_16_6ef33d110d709e46768549c59b02841a._comment
@@ -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.
 """]]