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

added an alert after a file transfer

Browse source
This commit is contained in:
Joey Hess 2012-08-06 17:09:23 -04:00
parent 05ed196ce5
commit 8f1a9ef8b5
5 changed files with 46 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Assistant/Threads/Transferrer.hs
View file

@ -12,6 +12,7 @@ import Assistant.ThreadedMonad
import Assistant.DaemonStatus
import Assistant.TransferQueue
import Assistant.TransferSlots
import Assistant.Alert
import Logs.Transfer
import Logs.Presence
import Logs.Location
@ -94,7 +95,8 @@ transferThread st dstatus slots t info = case (transferRemote info, associatedFi
, transferTid = Just tid
}
where
isdownload = transferDirection t == Download
direction = transferDirection t
isdownload = direction == Download
tofrom
| isdownload = "from"
| otherwise = "to"
@ -113,3 +115,6 @@ transferThread st dstatus slots t info = case (transferRemote info, associatedFi
Remote.logStatus remote key InfoPresent
return ok
showEndResult ok
liftIO $ addAlert dstatus $
makeAlertFiller ok $
transferFileAlert direction file