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

Enable encryption

This commit is contained in:
Sergey Ivanov 2023-07-19 00:05:04 +04:00
parent 6d60fa3425
commit 3abf7cbe1b
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
hbs2-peer/app/ProxyMessaging.hs
View File

@ -104,16 +104,18 @@ runProxyMessaging env = liftIO do
instance Messaging ProxyMessaging L4Proto LBS.ByteString where instance Messaging ProxyMessaging L4Proto LBS.ByteString where
sendTo = sendToPlainProxyMessaging sendTo = sendToProxyMessaging
receive bus _ = liftIO do receive = receiveFromProxyMessaging
-- trace "PROXY: RECEIVE"
-- receive (view proxyUDP bus) w -- receive bus _ = liftIO do
let answ = view proxyAnswers bus -- -- trace "PROXY: RECEIVE"
atomically $ do -- -- receive (view proxyUDP bus) w
r <- readTQueue answ -- let answ = view proxyAnswers bus
rs <- flushTQueue answ -- atomically $ do
pure (r:rs) -- r <- readTQueue answ
-- rs <- flushTQueue answ
-- pure (r:rs)
sendToPlainProxyMessaging :: (MonadIO m) sendToPlainProxyMessaging :: (MonadIO m)
=> ProxyMessaging => ProxyMessaging