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/Attach.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Attach.hs') diff --git a/src/Attach.hs b/src/Attach.hs index 0e32294..a776cad 100644 --- a/src/Attach.hs +++ b/src/Attach.hs @@ -109,7 +109,7 @@ instance PairingResult AttachIdentity where , pairingHookRejected = do svcPrint $ "Attachment rejected by peer" - , pairingHookFailed = do + , pairingHookFailed = \_ -> do svcPrint $ "Attachement failed" } -- cgit v1.2.3