From 1f961a5a882d2626f0c6be28b03d86b8c257a855 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Mon, 25 Jul 2022 20:57:39 +0200 Subject: Pairing failure reason --- src/Contact.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Contact.hs') diff --git a/src/Contact.hs b/src/Contact.hs index 1dc926e..4e2cb17 100644 --- a/src/Contact.hs +++ b/src/Contact.hs @@ -139,7 +139,7 @@ instance PairingResult ContactAccepted where , pairingHookRejected = do svcPrint $ "Contact rejected by peer" - , pairingHookFailed = do + , pairingHookFailed = \_ -> do svcPrint $ "Contact failed" } -- cgit v1.2.3