diff --git a/.fixme-new/config b/.fixme-new/config index 736a5462..c079abed 100644 --- a/.fixme-new/config +++ b/.fixme-new/config @@ -15,7 +15,7 @@ fixme-attribs class fixme-value-set workflow new backlog wip test fixed done -fixme-value-set class hardcode performance boilerplate +fixme-value-set class hardcode leak performance boilerplate ; fixme-value-set cat bug feat refactor @@ -44,7 +44,7 @@ fixme-comments ";" "--" (align 10 ("[" $workflow "]")) " " - (align 8 $type) " " + (align 8 $class) " " (align 12 $assigned) " " (align 20 (trim 20 $committer-name)) " " (trim 50 ($fixme-title)) " " diff --git a/hbs2-core/lib/HBS2/Net/Messaging/Unix.hs b/hbs2-core/lib/HBS2/Net/Messaging/Unix.hs index ea67083e..7895f509 100644 --- a/hbs2-core/lib/HBS2/Net/Messaging/Unix.hs +++ b/hbs2-core/lib/HBS2/Net/Messaging/Unix.hs @@ -63,6 +63,18 @@ data MessagingUnixOpts = | MUKeepAlive Int deriving (Eq,Ord,Show,Generic,Data) +-- TODO: counters-to-detect-zombies +-- $class: leak +-- добавить счётчики для обнаружения +-- мёртвых соединений, а так же их отстрел. +-- есть основания полагать, что Messaging +-- может течь. +-- +-- Шаг 1. добавить счётчики +-- Шаг 2. убедиться, что ресурсы текут +-- Шаг 3. устранить течь +-- Шаг 4. убедиться, что течь устранена + -- FIXME: use-bounded-queues data MessagingUnix = MessagingUnix diff --git a/hbs2-tests/test/TestRefChanNotify.hs b/hbs2-tests/test/TestRefChanNotify.hs index 3a98eaca..9458c33b 100644 --- a/hbs2-tests/test/TestRefChanNotify.hs +++ b/hbs2-tests/test/TestRefChanNotify.hs @@ -117,7 +117,7 @@ work = do -- -- так лучше -- - let o = [MUWatchdog 10,MUDontRetry] + let o = [MUWatchdog 10] soname <- detectRPC >>= orThrowUser "hbs2-peer not found"