diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-11 15:43:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-11 15:43:33 -0400 |
| commit | 99d52f26bc2efc12f936591ff980ac42f5de5ecf (patch) | |
| tree | 70b3691597c4b89e7d5e342e460e96eab1546eec /Assistant/Alert.hs | |
| parent | 4227050bbe97df92e5f4a733b0521670c8fd67ba (diff) | |
fix combining of pairing alerts
Diffstat (limited to 'Assistant/Alert.hs')
| -rw-r--r-- | Assistant/Alert.hs | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index 2a08c9ce0..fc1dff353 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -294,12 +294,8 @@ pairingAlert button = baseActivityAlert } pairRequestReceivedAlert :: String -> AlertButton -> Alert -pairRequestReceivedAlert repo button = Alert - { alertClass = Message - , alertHeader = Nothing - , alertMessageRender = tenseWords - , alertData = [UnTensed $ T.pack $ repo ++ " is sending a pair request."] - , alertBlockDisplay = False +pairRequestReceivedAlert repo button = baseActivityAlert + { alertData = [UnTensed $ T.pack $ repo ++ " is sending a pair request."] , alertPriority = High , alertClosable = True , alertIcon = Just InfoIcon @@ -308,13 +304,13 @@ pairRequestReceivedAlert repo button = Alert , alertButton = Just button } -pairRequestAcknowledgedAlert :: String -> AlertButton -> Alert +pairRequestAcknowledgedAlert :: String -> (Maybe AlertButton) -> Alert pairRequestAcknowledgedAlert repo button = baseActivityAlert { alertData = ["Pair request with", UnTensed (T.pack repo), Tensed "in progress" "complete"] , alertPriority = High , alertName = Just $ PairAlert repo , alertCombiner = Just $ dataCombiner $ \_old new -> new - , alertButton = Just button + , alertButton = button } fileAlert :: TenseChunk -> FilePath -> Alert |