diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-11-29 15:49:05 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-11-29 16:40:32 -0400 |
| commit | 3b3f7512f6d0b91de21f6fcc4aba8897174bc4a8 (patch) | |
| tree | 44c85fda3d6a35d62b00cca26bf6acaf474133c2 /Annex/Notification.hs | |
| parent | b7178922644c813a2cb69c185ca751aa234fa05b (diff) | |
youtube-dl working
Including resuming and cleanup of incomplete downloads.
Still todo: --fast, --relaxed, importfeed, disk reserve checking,
quvi code cleanup.
This commit was sponsored by Anthony DeRobertis on Patreon.
Diffstat (limited to 'Annex/Notification.hs')
| -rw-r--r-- | Annex/Notification.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Annex/Notification.hs b/Annex/Notification.hs index 6a13d91dd..f3d5006e3 100644 --- a/Annex/Notification.hs +++ b/Annex/Notification.hs @@ -39,7 +39,7 @@ instance Transferrable URLString where {- Wrap around an action that performs a transfer, which may run multiple - attempts. Displays notification when supported and when the user asked - for it. -} -notifyTransfer :: Transferrable t => Direction -> t -> (NotifyWitness -> Annex Bool) -> Annex Bool +notifyTransfer :: Transferrable t => Observable v => Direction -> t -> (NotifyWitness -> Annex v) -> Annex v notifyTransfer direction t a = case descTransfrerrable t of Nothing -> a NotifyWitness Just desc -> do @@ -51,12 +51,13 @@ notifyTransfer direction t a = case descTransfrerrable t of startnotification <- liftIO $ if notifyStart wanted then Just <$> Notify.notify client (startedTransferNote direction desc) else pure Nothing - ok <- a NotifyWitness + res <- a NotifyWitness + let ok = observeBool res when (notifyFinish wanted) $ liftIO $ void $ maybe (Notify.notify client $ finishedTransferNote ok direction desc) (\n -> Notify.replace client n $ finishedTransferNote ok direction desc) startnotification - return ok + return res else a NotifyWitness #else a NotifyWitness |