remove unncessary debugs
Keeping the ones in Annex.InodeSentinal
This commit is contained in:
parent
a306560374
commit
3e0b210039
1 changed files with 3 additions and 8 deletions
|
@ -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 []
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue