don't clean up transfer lock file when retrying transfer

This affected callers that used forwardRetry; if the 1st attempt failed it
would clean up the transfer lock before retrying.

Annex/Transfer.hs

@@ -74,10 +74,8 @@ runTransfer' ignorelock t file shouldretry transferobserver transferaction = do
 			showNote "transfer already in progress"
 			return False
 		else do
-			ok <- retry info metervar $ bracketIO 
-				(return lck)
-				(cleanup tfile)
-				(const $ transferaction meter)
+			ok <- retry info metervar $ transferaction meter
+			liftIO $ cleanup tfile lck
 			transferobserver ok t info
 			return ok
   where