From 08a3ad851feb7cd11aed01e88bc3c22dd0b084ac Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 27 Jul 2023 11:29:15 +0300
Subject: [PATCH] minor hlint warning fix + fixme status

---
 .fixme/log                      | 5 ++++-
 hbs2-peer/app/ProxyMessaging.hs | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/.fixme/log b/.fixme/log
index aea3a385..1de2b341 100644
--- a/.fixme/log
+++ b/.fixme/log
@@ -1,2 +1,5 @@
 
-fixme-del "4ZJ4UPGkXB"
\ No newline at end of file
+(fixme-set "workflow" "test" "8ey8Fnr4c4")
+fixme-del "7TVJE7H1YY"
+fixme-del "DoshYTWtk5"
+(fixme-set "workflow" "done" "DgtWWrbatG")
diff --git a/hbs2-peer/app/ProxyMessaging.hs b/hbs2-peer/app/ProxyMessaging.hs
index a6a9bf9d..e2cf8d52 100644
--- a/hbs2-peer/app/ProxyMessaging.hs
+++ b/hbs2-peer/app/ProxyMessaging.hs
@@ -158,7 +158,7 @@ receiveFromProxyMessaging bus _ = liftIO do
     -- receive (view proxyUDP bus) w
     let answ = view proxyAnswers bus
     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
 
     -- Здесь: