diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-03 17:34:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-03 17:46:22 -0400 |
| commit | bc94dde8f6c5d7ca213fa81a6c03a4c9e22e16d5 (patch) | |
| tree | 9a5384d53b222577004ce2cbe8b1540a5e3f2e90 /Assistant/Alert.hs | |
| parent | efa88a0f1589a82a91a06ed3a3cbd5f4106aabb4 (diff) | |
XMPP pair requests are now received, and an alert displayed
Diffstat (limited to 'Assistant/Alert.hs')
| -rw-r--r-- | Assistant/Alert.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index c729e4de4..8d9455e66 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -301,23 +301,23 @@ pairingAlert button = baseActivityAlert } pairRequestReceivedAlert :: String -> AlertButton -> Alert -pairRequestReceivedAlert repo button = Alert +pairRequestReceivedAlert who button = Alert { alertClass = Message , alertHeader = Nothing , alertMessageRender = tenseWords - , alertData = [UnTensed $ T.pack $ repo ++ " is sending a pair request."] + , alertData = [UnTensed $ T.pack $ who ++ " is sending a pair request."] , alertBlockDisplay = False , alertPriority = High , alertClosable = True , alertIcon = Just InfoIcon - , alertName = Just $ PairAlert repo + , alertName = Just $ PairAlert who , alertCombiner = Just $ dataCombiner $ \_old new -> new , alertButton = Just button } pairRequestAcknowledgedAlert :: String -> Maybe AlertButton -> Alert -pairRequestAcknowledgedAlert repo button = baseActivityAlert - { alertData = ["Pair request with", UnTensed (T.pack repo), Tensed "in progress" "complete"] +pairRequestAcknowledgedAlert who button = baseActivityAlert + { alertData = ["Pair request with", UnTensed (T.pack who), Tensed "in progress" "complete"] , alertPriority = High , alertCombiner = Just $ dataCombiner $ \_old new -> new , alertButton = button |