diff options
Diffstat (limited to 'Assistant/WebApp')
-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 |