diff options
author | 2012-09-09 15:16:17 -0400 | |
---|---|---|
committer | 2012-09-09 15:16:17 -0400 | |
commit | ded85175455bf355753ea26263898487c2162ab5 (patch) | |
tree | 29f8a73b20e5bd9f0a38d87520fba59e14aa5bd1 /Assistant/Threads/PairListener.hs | |
parent | 690b424cad86f6ebd4e5f9755f0f2751aafb4cdd (diff) |
pair request alert tweaks
Diffstat (limited to 'Assistant/Threads/PairListener.hs')
-rw-r--r-- | Assistant/Threads/PairListener.hs | 10 |
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"] } |