mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove debug prints

Browse source
This commit is contained in:
Joey Hess 2018-10-26 12:56:40 -04:00
parent 3db20b39f2
commit e2c894d3df
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Annex/Content.hs
View file

@ -750,21 +750,17 @@ isUnmodified key f = go =<< geti
go (Just fc) = isUnmodifiedCheap' key fc <||> expensivecheck fc go (Just fc) = isUnmodifiedCheap' key fc <||> expensivecheck fc
expensivecheck fc = ifM (verifyKeyContent RetrievalAllKeysSecure AlwaysVerify UnVerified key f) expensivecheck fc = ifM (verifyKeyContent RetrievalAllKeysSecure AlwaysVerify UnVerified key f)
( do ( do
liftIO $ print "content verified"
-- The file could have been modified while it was -- The file could have been modified while it was
-- being verified. Detect that. -- being verified. Detect that.
ifM (geti >>= maybe (return False) (compareInodeCaches fc)) ifM (geti >>= maybe (return False) (compareInodeCaches fc))
( do ( do
-- Update the InodeCache to avoid -- Update the InodeCache to avoid
-- performing this expensive check again. -- performing this expensive check again.
liftIO $ print "update inode cache"
Database.Keys.addInodeCaches key [fc] Database.Keys.addInodeCaches key [fc]
return True return True
, return False , return False
) )
, do , return False
liftIO $ print "content not verified"
return False
) )
geti = withTSDelta (liftIO . genInodeCache f) geti = withTSDelta (liftIO . genInodeCache f)