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

move comment to right place

Browse source
This commit is contained in:
Joey Hess 2013-03-18 11:18:04 -04:00
parent a01800186d
commit 7a77f98576
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Annex/Content.hs
View file

@ -276,10 +276,6 @@ replaceFile file a = do
- In direct mode, it's possible for the file to change as it's being sent. - 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 - If this happens, runs the rollback action and returns False. The
- rollback action should remove the data that was transferred. - 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 -> Annex () -> (FilePath -> Annex Bool) -> Annex Bool
sendAnnex key rollback sendobject = go =<< prepSendAnnex key sendAnnex key rollback sendobject = go =<< prepSendAnnex key
@ -299,6 +295,10 @@ sendAnnex key rollback sendobject = go =<< prepSendAnnex key
- -
- In direct mode, it's possible for the file to change as it's being sent, - In direct mode, it's possible for the file to change as it's being sent,
- and the check detects this case and returns False. - and the check detects this case and returns False.
-
- Note that the returned check 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
-} -}
prepSendAnnex :: Key -> Annex (Maybe (FilePath, Annex Bool)) prepSendAnnex :: Key -> Annex (Maybe (FilePath, Annex Bool))
prepSendAnnex key = withObjectLoc key indirect direct prepSendAnnex key = withObjectLoc key indirect direct