diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-07-28 16:48:15 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-07-28 21:40:34 +0200 |
| commit | 8bcaaf5524504f01bd5643d74848cec625370aa9 (patch) | |
| tree | 9a5e0e8a3564d1559851460f408903b87c32292a /main/Test.hs | |
| parent | ae235831a83eb80910ad58f9a324a688ce5e2e47 (diff) | |
Peer address input in ServiceHandler
Diffstat (limited to 'main/Test.hs')
| -rw-r--r-- | main/Test.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |