voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
voidlizard 2025-02-11 10:27:32 +03:00
parent c093c9237b
commit 9d0f1f7976
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-core/lib/HBS2/Net/Messaging/UDP.hs
View File

@ -42,7 +42,8 @@ newMessagingUDPMulticast s = runMaybeT $ do
(host, port) <- MaybeT $ pure $ getHostPort (Text.pack s) (host, port) <- MaybeT $ pure $ getHostPort (Text.pack s)
so <- liftIO $ multicastReceiver host port so <- liftIO (try @_ @SomeException $ multicastReceiver host port)
>>= toMPlus
liftIO $ setSocketOption so ReuseAddr 1 liftIO $ setSocketOption so ReuseAddr 1

2
hbs2-peer/app/PeerMain.hs
View File

@ -844,7 +844,7 @@ runPeer opts = respawnOnError opts $ do
mcast <- newMessagingUDPMulticast defLocalMulticast mcast <- newMessagingUDPMulticast defLocalMulticast
`orDie` "Can't start RPC listener" `orDie` "Can't start multicast listener"
messMcast <- async $ runMessagingUDP mcast messMcast <- async $ runMessagingUDP mcast