diff options
Diffstat (limited to 'Annex/Content.hs')
-rw-r--r-- | Annex/Content.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 0439cb367..673e59b10 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -276,6 +276,10 @@ replaceFile file a = do - In direct mode, it's possible for the file to change as it's being sent. - If this happens, runs the rollback action and returns False. The - rollback action should remove the data that was transferred. + - + - Note that the returned action is, in some cases, run in the Annex monad + - of the remote that is receiving the object, rather than the sender. + - So it cannot rely on Annex state, particular -} sendAnnex :: Key -> Annex () -> (FilePath -> Annex Bool) -> Annex Bool sendAnnex key rollback sendobject = go =<< prepSendAnnex key @@ -303,6 +307,7 @@ 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) |