remove old debug print

This commit is contained in:
Joey Hess 2013-03-16 16:58:40 -04:00
parent 6314be1e3c
commit b3d3ece2ab

View file

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