From e595ba7d94324b8a9b14e3a43560113908e09337 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Fri, 8 Jun 2018 04:08:46 +0000 Subject: use Control.Concurrent.Lifted.Instrument so threads are listed --- src/Network/Tox/Crypto/Handlers.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 5316acc8..e79b66fc 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs @@ -2,6 +2,7 @@ {-# LANGUAGE TupleSections #-} {-# LANGUAGE TypeOperators #-} {-# LANGUAGE DeriveFunctor #-} +{-# LANGUAGE CPP #-} module Network.Tox.Crypto.Handlers where import Network.Tox.NodeId @@ -40,8 +41,12 @@ import System.IO.Temp import System.Environment import System.Directory import System.Random -- for ping fuzz +#ifdef THREAD_DEBUG +import Control.Concurrent.Lifted.Instrument +#else import Control.Concurrent import GHC.Conc (labelThread) +#endif import PingMachine import qualified Data.IntMap.Strict as IntMap import Control.Concurrent.Supply -- cgit v1.2.3