cleanup debug print
authorJoey Hess <joey@kitenet.net>
Thu, 28 Mar 2013 18:18:26 +0000 (14:18 -0400)
committerJoey Hess <joey@kitenet.net>
Thu, 28 Mar 2013 18:18:26 +0000 (14:18 -0400)
Annex/Content.hs

index 91ffe7a48fd82742a5287c9bf987a72259e1b38f..e9d5b6854eaa3b2204d7929e72b2cd68555727da 100644 (file)
@@ -307,7 +307,6 @@ prepSendAnnex key = withObjectLoc key indirect direct
        direct [] = return Nothing
        direct (f:fs) = do
                cache <- recordedInodeCache key
-               liftIO $ print ("prepSendAnnex pre cache", cache)
                -- check that we have a good file
                ifM (sameInodeCache f cache)
                        ( return $ Just (f, sameInodeCache f cache)