convert forkIO to forkLabeled (wip)

1 files changed, 2 insertions, 8 deletions

diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index eb41c598..c7fd4f06 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -54,12 +54,7 @@ import System.Posix.Process
 import Text.PrettyPrint.HughesPJClass
 import Text.Printf
 import Text.Read
-#ifdef THREAD_DEBUG
-import Control.Concurrent.Lifted.Instrument
-#else
-import Control.Concurrent.Lifted
-import GHC.Conc                  (labelThread)
-#endif
+import Control.Concurrent.ThreadUtil
 import qualified Data.HashMap.Strict as HashMap
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
@@ -1826,8 +1821,7 @@ main = do
             bootstrap btSaved fallbackNodes
         return ()
 
-    forkIO $ do
-        myThreadId >>= flip labelThread "XMPP.stanzas"
+    forkLabeled "XMPP.stanzas" $ do
         let console = cwPresenceChan <$> (mstate >>= consoleWriter)
         fix $ \loop -> do
         what <- atomically