minor hlint warning fix + fixme status

.fixme/log

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

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
 
     -- Здесь: