remove unncessary debugs

Keeping the ones in Annex.InodeSentinal
This commit is contained in:
Joey Hess 2021-07-29 12:18:31 -04:00
parent a306560374
commit 3e0b210039
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -6,7 +6,6 @@
-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
module Annex.Content (
inAnnex,
@ -499,19 +498,15 @@ prepSendAnnex key = withObjectLoc key $ \f -> do
-- change while the transfer is in progress, so
-- generate an inode cache for the starting
-- content.
then do
fastDebug "Annex.Content" ("found no inode cache for " ++ show f)
maybeToList <$>
withTSDelta (liftIO . genInodeCache f)
then maybeToList <$>
withTSDelta (liftIO . genInodeCache f)
-- Verify that the object is not modified. Usually this
-- only has to check the inode cache, but if the cache
-- is somehow stale, it will fall back to verifying its
-- content.
else withTSDelta (liftIO . genInodeCache f) >>= \case
Just fc -> ifM (isUnmodified' key f fc cache)
( do
fastDebug "Annex.Content" ("found inode cache for " ++ show f)
return (fc:cache)
( return (fc:cache)
, return []
)
Nothing -> return []