fix combining of pairing alerts

This commit is contained in:
Joey Hess 2012-09-11 15:43:33 -04:00
parent 4227050bbe
commit 99d52f26bc
3 changed files with 8 additions and 10 deletions

View file

@ -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,