pair request alert tweaks

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"]
 			}