Remove useless comment

IntersectMBO · Apr 25, 2024 · 3f590a0 · 3f590a0
1 parent 18140d8
commit 3f590a0
Showing 1 changed file with 0 additions and 9 deletions.
diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Util/LeakyBucket.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Util/LeakyBucket.hs
@@ -337,15 +337,6 @@ snapshot bucket newTime = fst <$> snapshotFill bucket 0 newTime
 -- level and returns whether this action overflew the bucket.
 --
 -- REVIEW: What to do when 'toAdd' is negative?
---
--- REVIEW: Really, this should all be an STM transaction. Now there is the risk
--- that two snapshot-taking transactions interleave with the time measurement to
--- get a slightly imprecise state (which is not the worst because everything
--- should happen very fast). There is also the bigger risk that when we snapshot
--- and then do something (eg. in the 'setPaused' handler) we interleave with
--- something else. It cannot easily be an STM transaction, though, because we
--- need to measure the time, and @io-classes@'s STM does not allow running IO in
--- an STM.
 snapshotFill ::
   ( MonadSTM m
   ) =>