wip

hbs2-tests/test/Peer2Main.hs

@@ -404,11 +404,18 @@ mkAdapter cww = do
         -- мы не знаем, что там еще 3 события.
         --
         -- таким образом, ни про какое событие нельзя понять,
-        -- что оно последнее
+        -- что оно последнее, если у нас 4 потока.
         --
         -- как же нам узнать, что пришёл последний блок и можно
         -- его коммитить?
         --
+        --
+        -- вариант N1. повесить "добивающий монитор".
+        -- Здесь только апдейтить счётчики, а вот монитор будет уже
+        -- смотреть что как и коммитить.
+        --
+        -- Монитор может быть протухающим.
+        -- Как это сделать?
 
         let mbDone = (maxOffLast + fromIntegral mbChSize) > fromIntegral mbSize
                    && writtenLast >= ( (mbSize * 2) `div` 3 )