fix combining of pairing alerts
This commit is contained in:
parent
4227050bbe
commit
99d52f26bc
3 changed files with 8 additions and 10 deletions
|
@ -56,7 +56,7 @@ getFinishPairR msg = promptSecret (Just msg) $ \_ secret -> do
|
|||
liftIO $ setup
|
||||
startPairing PairAck cleanup alert uuid "" secret
|
||||
where
|
||||
alert = pairRequestAcknowledgedAlert $ pairRepo msg
|
||||
alert = pairRequestAcknowledgedAlert (pairRepo msg) . Just
|
||||
setup = setupAuthorizedKeys msg
|
||||
cleanup = removeAuthorizedKeys False $
|
||||
remoteSshPubKey $ pairMsgData msg
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue