From 5b908c86320ee73f2722c85f8a47fa03ec093c6c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Tue, 10 Oct 2023 21:36:58 +0200 Subject: Use extended identity data for name --- src/Pairing.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Pairing.hs') diff --git a/src/Pairing.hs b/src/Pairing.hs index 8567168..0b31625 100644 --- a/src/Pairing.hs +++ b/src/Pairing.hs @@ -116,7 +116,7 @@ instance PairingResult a => Service (PairingService a) where (NoPairing, PairingRequest pdata sdata confirm) -> do self <- maybe (throwError "failed to validate received identity") return $ validateIdentity sdata self' <- maybe (throwError "failed to validate own identity") return . - validateIdentity . lsIdentity . fromStored =<< svcGetLocal + validateExtendedIdentity . lsIdentity . fromStored =<< svcGetLocal when (not $ self `sameIdentity` self') $ do throwError "pairing request to different identity" -- cgit v1.2.3