summaryrefslogtreecommitdiff
path: root/Assistant/Threads
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-09 15:16:17 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-09 15:16:17 -0400
commitded85175455bf355753ea26263898487c2162ab5 (patch)
tree29f8a73b20e5bd9f0a38d87520fba59e14aa5bd1 /Assistant/Threads
parent690b424cad86f6ebd4e5f9755f0f2751aafb4cdd (diff)
pair request alert tweaks
Diffstat (limited to 'Assistant/Threads')
-rw-r--r--Assistant/Threads/PairListener.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs
index b19ce3aa4..3dc1a331f 100644
--- a/Assistant/Threads/PairListener.hs
+++ b/Assistant/Threads/PairListener.hs
@@ -78,13 +78,13 @@ pairReqAlert dstatus urlrenderer msg = unlessM myreq $ do
- can verify using the secrets of any of them. -}
myreq = any (verified v . inProgressSecret) . pairingInProgress
<$> getDaemonStatus dstatus
- {- Remove the button when it's clicked, and convert the
- - alert to filler. It cannot be entirely removed since
- - more pair request messages are coming in and would
- - re-add it. -}
+ {- Remove the button when it's clicked, and change the
+ - alert to be in progress. This alert cannot be entirely
+ - removed since more pair request messages are coming in
+ - and would re-add it. -}
onclick i = updateAlert dstatus i $ \alert -> Just $ alert
{ alertButton = Nothing
- , alertPriority = Filler
+ , alertIcon = Just ActivityIcon
, alertData = [UnTensed $ T.pack $ "pair request with " ++ repo ++ " in progress"]
}