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