diff options
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!" |