Label leaky bucket thread

Author: jasagredo

ouroboros-consensus/changelog.d/jasagedo-label-thread.md

@@ -0,0 +1,3 @@
+### Patch
+
+- Label the leaky bucket thread.

ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Util/LeakyBucket.hs

@@ -222,7 +222,9 @@ runAgainstBucket config action = do
   leakingPeriodVersionTMVar <- atomically newEmptyTMVar -- see note [Leaky bucket design].
   tid <- myThreadId
   bucket <- init config
-  withAsync (leak (readTMVar leakingPeriodVersionTMVar) tid bucket) $ \_ -> do
+  withAsync (do
+    labelThisThread "Leaky bucket (ouroboros-consensus)"
+    leak (readTMVar leakingPeriodVersionTMVar) tid bucket) $ \_ -> do
     atomicallyWithMonotonicTime $ maybeStartThread Nothing leakingPeriodVersionTMVar bucket
     result <-
       action $