From b6bc2b6c5ab93a1fb629aaa70477ebf7f4959f1b Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 30 Oct 2024 13:21:17 +0900
Subject: [PATCH] better thread name

---
 time-manager/System/TimeManager.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/time-manager/System/TimeManager.hs b/time-manager/System/TimeManager.hs
index 42b6709d4..b3cdd9bf1 100644
--- a/time-manager/System/TimeManager.hs
+++ b/time-manager/System/TimeManager.hs
@@ -61,7 +61,7 @@ initialize timeout =
         defaultReaperSettings
             { reaperAction = mkListAction prune
             , reaperDelay = timeout
-            , reaperThreadName = "TimeManager (Reaper)"
+            , reaperThreadName = "WAI timeout manager (Reaper)"
             }
   where
     prune m@(Handle _ actionRef stateRef) = do