diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-24 13:28:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-24 13:28:34 -0400 |
| commit | 71819fdbfbf3a35081b5891a552e8da38e5b2769 (patch) | |
| tree | 4b5b40bd26fa5f2f277d6df373a25ebbd9dd6e4c /Assistant/Alert.hs | |
| parent | 42b427f6fc711254ac9ff1f047568f3584a406f7 (diff) | |
show version in upgrade alert
Diffstat (limited to 'Assistant/Alert.hs')
| -rw-r--r-- | Assistant/Alert.hs | 8 |
1 files changed, 5 insertions, 3 deletions
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!" |