From 8bcaaf5524504f01bd5643d74848cec625370aa9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 28 Jul 2025 16:48:15 +0200
Subject: Peer address input in ServiceHandler

---
 main/Test.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'main/Test.hs')

diff --git a/main/Test.hs b/main/Test.hs
index b1c8f01..093d3ac 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -229,7 +229,7 @@ directMessageAttributes out = DirectMessageAttributes
 
 discoveryAttributes :: DiscoveryAttributes
 discoveryAttributes = (defaultServiceAttributes Proxy)
-    { discoveryProvideTunnel = const False
+    { discoveryProvideTunnel = \_ _ -> False
     }
 
 dmReceivedWatcher :: Output -> Stored DirectMessage -> IO ()
@@ -524,7 +524,7 @@ cmdStartServer = do
         ( "chatroom", _ ) -> return $ someService @ChatroomService Proxy
         ( "contact", _ ) -> return $ someServiceAttr $ pairingAttributes (Proxy @ContactService) out rsPeers "contact"
         ( "discovery", params ) -> return $ someServiceAttr $ discoveryAttributes
-            { discoveryProvideTunnel = const $ "tunnel" `elem` params
+            { discoveryProvideTunnel = \_ _ -> "tunnel" `elem` params
             }
         ( "dm", _ ) -> return $ someServiceAttr $ directMessageAttributes out
         ( "sync", _ ) -> return $ someService @SyncService Proxy
-- 
cgit v1.2.3