1 files changed, 7 insertions, 0 deletions

diff --git a/dht/src/Control/Concurrent/ThreadUtil.hs b/dht/src/Control/Concurrent/ThreadUtil.hs
index 2888e899..a258d933 100644
--- a/dht/src/Control/Concurrent/ThreadUtil.hs
+++ b/dht/src/Control/Concurrent/ThreadUtil.hs
@@ -21,4 +21,11 @@ forkLabeled lbl action = do
     labelThread t lbl
     return t
 {-# INLINE forkLabeled #-}
+
+forkOSLabeled :: String -> IO () -> IO ThreadId
+forkOSLabeled lbl action = do
+    t <- forkOS action
+    labelThread t lbl
+    return t
+{-# INLINE forkOSLabeled #-}
 #endif