Label KES key receiver thread

IntersectMBO · Feb 27, 2025 · de9c931 · de9c931
1 parent 52ed282
commit de9c931
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/...s-protocol/src/ouroboros-consensus-protocol/Ouroboros/Consensus/Protocol/Ledger/HotKey.hs b/...s-protocol/src/ouroboros-consensus-protocol/Ouroboros/Consensus/Protocol/Ledger/HotKey.hs
@@ -288,8 +288,9 @@ mkHotKeyWith initialStateMay maxKESEvolutions keyThreadMay finalizer = do
 
     finalizer' <- case keyThreadMay of
       Just keyThread -> do
-        keyThreadAsync <- async
-          (keyThread set)
+        keyThreadAsync <- async $ do
+                            labelThisThread "HotKey receiver"
+                            keyThread set
         return (cancel keyThreadAsync >> finalizer)
       Nothing ->
         return finalizer