diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-11 15:43:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-11 15:43:33 -0400 |
| commit | 99d52f26bc2efc12f936591ff980ac42f5de5ecf (patch) | |
| tree | 70b3691597c4b89e7d5e342e460e96eab1546eec /Assistant/WebApp/Configurators/Pairing.hs | |
| parent | 4227050bbe97df92e5f4a733b0521670c8fd67ba (diff) | |
fix combining of pairing alerts
Diffstat (limited to 'Assistant/WebApp/Configurators/Pairing.hs')
| -rw-r--r-- | Assistant/WebApp/Configurators/Pairing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/WebApp/Configurators/Pairing.hs b/Assistant/WebApp/Configurators/Pairing.hs index ddd9a97b7..1a80f1f75 100644 --- a/Assistant/WebApp/Configurators/Pairing.hs +++ b/Assistant/WebApp/Configurators/Pairing.hs @@ -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 |