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

fix problem with last commit and assistant

Browse source 
liftAnnex blocks all others calls, so avoid using it with a long-duration
call to readResponse.
This commit is contained in:
Joey Hess 2020-12-04 12:20:04 -04:00
parent cad147cbbf
commit 7a9b618d5d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 17 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/TransferSlots.hs
View file

@ -155,7 +155,7 @@ genTransfer t info = case transferRemote info of
- usual cleanup. However, first check if something else is
- running the transfer, to avoid removing active transfers.
-}
go remote transferrer = ifM (liftAnnex $ performTransfer transferrer t info)
go remote transferrer = ifM (performTransfer transferrer t info)
( do
case associatedFile info of
AssociatedFile Nothing -> noop