diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-01 17:14:38 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-01 17:14:38 -0400 |
| commit | f936e91ef1f494ff475dd62f13711e673e475b3c (patch) | |
| tree | 8f9591da5426f393660722d3d7202a6cb022a8e9 /Assistant/Alert.hs | |
| parent | 4ffd404de75d6452e850c1ad6f94aa8dabc19621 (diff) | |
remove some monkey faces
Diffstat (limited to 'Assistant/Alert.hs')
| -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 |