diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-06 17:09:23 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-06 17:09:23 -0400 |
| commit | 8f1a9ef8b5e914bbe447733650a5848fc553c708 (patch) | |
| tree | 6ba3acbc6772ef60889cf975fb526502a3d49a49 /Assistant/Threads/Transferrer.hs | |
| parent | 05ed196ce5144154e8bbfbdc3cdcae90bd1c8a60 (diff) | |
added an alert after a file transfer
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
| -rw-r--r-- | Assistant/Threads/Transferrer.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index 956e0fc9d..67fdcd2a7 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -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 |