diff options
| -rw-r--r-- | Annex/Notification.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Notification.hs b/Annex/Notification.hs index f3d5006e3..27acd0302 100644 --- a/Annex/Notification.hs +++ b/Annex/Notification.hs @@ -40,10 +40,10 @@ instance Transferrable URLString where - attempts. Displays notification when supported and when the user asked - for it. -} notifyTransfer :: Transferrable t => Observable v => Direction -> t -> (NotifyWitness -> Annex v) -> Annex v +#ifdef WITH_DBUS_NOTIFICATIONS notifyTransfer direction t a = case descTransfrerrable t of Nothing -> a NotifyWitness Just desc -> do -#ifdef WITH_DBUS_NOTIFICATIONS wanted <- Annex.getState Annex.desktopnotify if (notifyStart wanted || notifyFinish wanted) then do @@ -60,7 +60,7 @@ notifyTransfer direction t a = case descTransfrerrable t of return res else a NotifyWitness #else - a NotifyWitness +notifyTransfer _ _ a = a NotifyWitness #endif notifyDrop :: AssociatedFile -> Bool -> Annex () |