diff options
author | Joey Hess <joey@kitenet.net> | 2012-09-11 16:11:28 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-09-11 16:11:28 -0400 |
commit | 4d592aaec2dd73e0244182872ad5f7ac270a73df (patch) | |
tree | 2a706c9c8214f208575ae18bc10fba3b998d11c4 /Assistant/Alert.hs | |
parent | ade511f6e309a1dd43ece7797127b29af3edba29 (diff) |
fixed all pairing alert issues
Diffstat (limited to 'Assistant/Alert.hs')
-rw-r--r-- | Assistant/Alert.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index fc1dff353..118c5e43d 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -294,8 +294,12 @@ pairingAlert button = baseActivityAlert } pairRequestReceivedAlert :: String -> AlertButton -> Alert -pairRequestReceivedAlert repo button = baseActivityAlert - { alertData = [UnTensed $ T.pack $ repo ++ " is sending a pair request."] +pairRequestReceivedAlert repo button = Alert + { alertClass = Message + , alertHeader = Nothing + , alertMessageRender = tenseWords + , alertData = [UnTensed $ T.pack $ repo ++ " is sending a pair request."] + , alertBlockDisplay = False , alertPriority = High , alertClosable = True , alertIcon = Just InfoIcon @@ -308,7 +312,6 @@ 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 = button } |