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

remove old debug print

Browse source
This commit is contained in:
Joey Hess 2013-03-16 16:58:40 -04:00
parent 6314be1e3c
commit b3d3ece2ab
1 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Annex/Content/Direct.hs
View file

@ -150,12 +150,8 @@ compareInodeCaches :: InodeCache -> InodeCache -> Annex Bool
compareInodeCaches x y
| compareStrong x y = return True
| otherwise = ifM inodesChanged
( do
liftIO $ print ("compareInodeCaches weak")
return $ compareWeak x y
, do
liftIO $ print ("compareInodeCaches no inode change but cache not match")
return False
( return $ compareWeak x y
, return False
)
compareInodeCachesWith :: Annex InodeComparisonType
@ -175,11 +171,9 @@ inodesChanged = maybe calc return =<< Annex.getState Annex.inodeschanged
scache <- liftIO . genInodeCache
=<< fromRepo gitAnnexInodeSentinal
scached <- readInodeSentinalFile
liftIO $ print (scache, scached)
let changed = case (scache, scached) of
(Just c1, Just c2) -> not $ compareStrong c1 c2
_ -> True
liftIO $ print changed
Annex.changeState $ \s -> s { Annex.inodeschanged = Just changed }
return changed