1 files changed, 1 insertions, 1 deletions
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"
         }