fix combining of pairing alerts
This commit is contained in:
parent
4227050bbe
commit
99d52f26bc
3 changed files with 8 additions and 10 deletions
|
@ -109,10 +109,12 @@ pairReqReceived False dstatus urlrenderer msg = do
|
|||
AlertButton
|
||||
{ buttonUrl = url
|
||||
, buttonLabel = T.pack "Respond"
|
||||
, buttonAction = Nothing
|
||||
, buttonAction = Just onclick
|
||||
}
|
||||
where
|
||||
repo = pairRepo msg
|
||||
onclick = \i -> updateAlert dstatus i $ const $ Just $
|
||||
pairRequestAcknowledgedAlert repo Nothing
|
||||
|
||||
{- When a verified PairAck is seen, a host is ready to pair with us, and has
|
||||
- already configured our ssh key. Stop sending PairReqs, finish the pairing,
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue