aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Threads/PairListener.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-11 15:43:33 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-11 15:43:33 -0400
commit99d52f26bc2efc12f936591ff980ac42f5de5ecf (patch)
tree70b3691597c4b89e7d5e342e460e96eab1546eec /Assistant/Threads/PairListener.hs
parent4227050bbe97df92e5f4a733b0521670c8fd67ba (diff)
fix combining of pairing alerts
Diffstat (limited to 'Assistant/Threads/PairListener.hs')
-rw-r--r--Assistant/Threads/PairListener.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/Assistant/Threads/PairListener.hs b/Assistant/Threads/PairListener.hs
index 14d189dd2..7f4368925 100644
--- a/Assistant/Threads/PairListener.hs
+++ b/Assistant/Threads/PairListener.hs
@@ -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,