naming threads

yesodweb · Oct 29, 2024 · 6f23930 · 6f23930
1 parent b36ca30
commit 6f23930
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 0 deletions.
diff --git a/time-manager/System/TimeManager.hs b/time-manager/System/TimeManager.hs
@@ -61,6 +61,7 @@ initialize timeout =
         defaultReaperSettings
             { reaperAction = mkListAction prune
             , reaperDelay = timeout
+            , reaperThreadName = "TimeManager (Reaper)"
             }
   where
     prune m@(Handle _ actionRef stateRef) = do

diff --git a/warp/Network/Wai/Handler/Warp/Date.hs b/warp/Network/Wai/Handler/Warp/Date.hs
@@ -29,6 +29,7 @@ initialize =
     mkAutoUpdate
         defaultUpdateSettings
             { updateAction = formatHTTPDate <$> getCurrentHTTPDate
+            , updateThreadName = "Date cacher (AutoUpdate)"
             }
 
 #ifdef WINDOWS

diff --git a/warp/Network/Wai/Handler/Warp/FdCache.hs b/warp/Network/Wai/Handler/Warp/FdCache.hs
@@ -120,6 +120,7 @@ initialize duration = MutableFdCache <$> mkReaper settings
             , reaperCons = uncurry insert
             , reaperNull = isEmpty
             , reaperEmpty = empty
+            , reaperThreadName = "Fd cacher (Reaper) "
             }
 
 clean :: FdCache -> IO (FdCache -> FdCache)

diff --git a/warp/Network/Wai/Handler/Warp/FileInfoCache.hs b/warp/Network/Wai/Handler/Warp/FileInfoCache.hs
@@ -112,6 +112,7 @@ initialize duration = mkReaper settings
             , reaperCons = \(path, v) -> M.insert path v
             , reaperNull = M.isEmpty
             , reaperEmpty = M.empty
+            , reaperThreadName = "File info cacher (Reaper)"
             }
 
 override :: Cache -> IO (Cache -> Cache)