diff options
| -rw-r--r-- | Assistant/Alert.hs | 4 | ||||
| -rw-r--r-- | Assistant/Threads/PairListener.hs | 10 |
2 files changed, 7 insertions, 7 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index f9cf4b3a8..666098c6f 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -288,10 +288,10 @@ sanityCheckFixAlert msg = Alert pairRequestAlert :: String -> String -> AlertButton -> Alert pairRequestAlert repo msg button = Alert { alertClass = Message - , alertHeader = Just $ tenseWords ["Pair request"] + , alertHeader = Nothing , alertMessageRender = tenseWords , alertData = [UnTensed $ T.pack msg] - , alertBlockDisplay = True + , alertBlockDisplay = False , alertPriority = High , alertClosable = True , alertIcon = Just InfoIcon 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"] } |