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

minor hlint warning fix + fixme status

This commit is contained in:
Dmitry Zuikov 2023-07-27 11:29:15 +03:00
parent 42309096e1
commit 08a3ad851f
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
.fixme/log
View File

@ -1,2 +1,5 @@
fixme-del "4ZJ4UPGkXB" (fixme-set "workflow" "test" "8ey8Fnr4c4")
fixme-del "7TVJE7H1YY"
fixme-del "DoshYTWtk5"
(fixme-set "workflow" "done" "DgtWWrbatG")

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

@ -158,7 +158,7 @@ receiveFromProxyMessaging bus _ = liftIO do
-- receive (view proxyUDP bus) w -- receive (view proxyUDP bus) w
let answ = view proxyAnswers bus let answ = view proxyAnswers bus
rs <- atomically $ liftM2 (:) (readTQueue answ) (flushTQueue answ) rs <- atomically $ liftM2 (:) (readTQueue answ) (flushTQueue answ)
fmap catMaybes $ forM rs \(w@(From whom), msg) -> do catMaybes <$> forM rs \(w@(From whom), msg) -> do
fmap (w, ) <$> dfm whom msg fmap (w, ) <$> dfm whom msg
-- Здесь: -- Здесь: