better handling of lifting from XMPP -> Assistant

This commit is contained in:
Joey Hess 2012-11-05 19:39:08 -04:00
parent fdb6a88877
commit 8f08aa3f45
7 changed files with 81 additions and 88 deletions

View file

@ -69,5 +69,5 @@ runTransferThread' d a = go
Just ResumeTransfer -> go
_ -> done
_ -> done
done = flip runAssistant d $
done = runAssistant d $
flip MSemN.signal 1 <<~ transferSlots