From 71819fdbfbf3a35081b5891a552e8da38e5b2769 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 24 Nov 2013 13:28:34 -0400
Subject: show version in upgrade alert

---
 Assistant/Alert.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'Assistant/Alert.hs')

diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs
index a8d49cc5b..dc321f097 100644
--- a/Assistant/Alert.hs
+++ b/Assistant/Alert.hs
@@ -233,10 +233,12 @@ baseUpgradeAlert buttons message = Alert
 	, alertData = []
 	}
 
-canUpgradeAlert :: AlertPriority -> AlertButton -> Alert
-canUpgradeAlert priority button = 
+canUpgradeAlert :: AlertPriority -> GitAnnexVersion -> AlertButton -> Alert
+canUpgradeAlert priority version button = 
 	(baseUpgradeAlert [button] $ fromString msg)
-		{ alertPriority = priority }
+		{ alertPriority = priority
+		, alertData = [fromString $ " (version " ++ version ++ ")"]
+		}
   where
 	msg = if priority >= High
 		then "An important upgrade of git-annex is available!"
-- 
cgit v1.2.3