diff options
Diffstat (limited to 'Assistant/Alert.hs')
| -rw-r--r-- | Assistant/Alert.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index ea576c668..65f8c3e67 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -313,6 +313,7 @@ pairRequestAcknowledgedAlert :: String -> Maybe AlertButton -> Alert pairRequestAcknowledgedAlert who button = baseActivityAlert { alertData = ["Pairing with", UnTensed (T.pack who), Tensed "in progress" "complete"] , alertPriority = High + , alertName = Just $ PairAlert who , alertCombiner = Just $ dataCombiner $ \_old new -> new , alertButton = button } |