diff options
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Alert.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index 58264cfbf..192952f56 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -253,7 +253,7 @@ upgradingAlert = activityAlert Nothing [ fromString "Upgrading git-annex" ] upgradeFinishedAlert :: Maybe AlertButton -> GitAnnexVersion -> Alert upgradeFinishedAlert button version = - baseUpgradeAlert (maybe [] (:[]) button) $ fromString $ + baseUpgradeAlert (maybeToList button) $ fromString $ "Finished upgrading git-annex to version " ++ version upgradeFailedAlert :: String -> Alert @@ -317,7 +317,7 @@ pairRequestAcknowledgedAlert who button = baseActivityAlert , alertPriority = High , alertName = Just $ PairAlert who , alertCombiner = Just $ dataCombiner $ \_old new -> new - , alertButtons = maybe [] (:[]) button + , alertButtons = maybeToList button } xmppNeededAlert :: AlertButton -> Alert |