diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-06-28 21:21:37 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-06-29 09:00:20 +0200 |
| commit | d112701ce72b090b79f101f6a2d0ccac7440762e (patch) | |
| tree | 9cf1f41f8baf8114c57372d05520e146ac0fe814 /main | |
| parent | 1355cf4d6bc293ab2c60f2fe4bb9bfae1caa5b7c (diff) | |
Discovery tunnel
Changelog: Support tunnel for peers in discovery service
Diffstat (limited to 'main')
| -rw-r--r-- | main/Test.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/main/Test.hs b/main/Test.hs index fa8501e..62c7229 100644 --- a/main/Test.hs +++ b/main/Test.hs @@ -316,6 +316,7 @@ commands = map (T.pack *** id) , ("chatroom-leave", cmdChatroomLeave) , ("chatroom-message-send", cmdChatroomMessageSend) , ("discovery-connect", cmdDiscoveryConnect) + , ("discovery-tunnel", cmdDiscoveryTunnel) ] cmdStore :: Command @@ -970,3 +971,10 @@ cmdDiscoveryConnect = do Just dgst <- return $ readRefDigest $ encodeUtf8 tref Just RunningServer {..} <- gets tsServer discoverySearch rsServer dgst + +cmdDiscoveryTunnel :: Command +cmdDiscoveryTunnel = do + [ tvia, ttarget ] <- asks tiParams + via <- getPeer tvia + Just target <- return $ readRefDigest $ encodeUtf8 ttarget + liftIO $ discoverySetupTunnel via target |