From 35419994e9418444dc82e5c90c579203cc4c3616 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 22 Mar 2014 10:42:38 -0400
Subject: add desktop notifications

Motivation: Hook scripts for nautilus or other file managers
need to provide the user with feedback that a file is being downloaded.

This commit was sponsored by THM Schoemaker.
---
 Annex.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Annex.hs')

diff --git a/Annex.hs b/Annex.hs
index 820c1d569..78329b5df 100644
--- a/Annex.hs
+++ b/Annex.hs
@@ -60,6 +60,7 @@ import Types.FileMatcher
 import Types.NumCopies
 import Types.LockPool
 import Types.MetaData
+import Types.DesktopNotify
 import Types.CleanupActions
 import qualified Utility.Matcher
 import qualified Data.Map as M
@@ -122,6 +123,7 @@ data AnnexState = AnnexState
 	, unusedkeys :: Maybe (S.Set Key)
 	, quviversion :: Maybe QuviVersion
 	, existinghooks :: M.Map Git.Hook.Hook Bool
+	, desktopnotify :: DesktopNotify
 	}
 
 newState :: GitConfig -> Git.Repo -> AnnexState
@@ -163,6 +165,7 @@ newState c r = AnnexState
 	, unusedkeys = Nothing
 	, quviversion = Nothing
 	, existinghooks = M.empty
+	, desktopnotify = mempty
 	}
 
 {- Makes an Annex state object for the specified git repo.
-- 
cgit v1.2.3