From 173816717bca3d07e894c0fd8877f84eb9c3a4f7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 5 Jul 2025 17:31:07 +0200
Subject: Option to configure when tunnel is offered

---
 main/Test.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'main/Test.hs')

diff --git a/main/Test.hs b/main/Test.hs
index 62c7229..b07bd87 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -227,6 +227,11 @@ directMessageAttributes out = DirectMessageAttributes
     { dmOwnerMismatch = afterCommit $ outLine out "dm-owner-mismatch"
     }
 
+discoveryAttributes :: DiscoveryAttributes
+discoveryAttributes = (defaultServiceAttributes Proxy)
+    { discoveryProvideTunnel = const True
+    }
+
 dmReceivedWatcher :: Output -> Stored DirectMessage -> IO ()
 dmReceivedWatcher out smsg = do
     let msg = fromStored smsg
@@ -510,7 +515,7 @@ cmdStartServer = do
         "attach" -> return $ someServiceAttr $ pairingAttributes (Proxy @AttachService) out rsPeers "attach"
         "chatroom" -> return $ someService @ChatroomService Proxy
         "contact" -> return $ someServiceAttr $ pairingAttributes (Proxy @ContactService) out rsPeers "contact"
-        "discovery" -> return $ someService @DiscoveryService Proxy
+        "discovery" -> return $ someServiceAttr $ discoveryAttributes
         "dm" -> return $ someServiceAttr $ directMessageAttributes out
         "sync" -> return $ someService @SyncService Proxy
         "test" -> return $ someServiceAttr $ (defaultServiceAttributes Proxy)
-- 
cgit v1.2.3