Removed LANGUAGE Strict from Concurrent instrumentation.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Control/Concurrent/Lifted/Instrument.hs b/src/Control/Concurrent/Lifted/Instrument.hs
index 29bac871..957b67bb 100644
--- a/src/Control/Concurrent/Lifted/Instrument.hs
+++ b/src/Control/Concurrent/Lifted/Instrument.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE Strict #-}
 module Control.Concurrent.Lifted.Instrument
     ( module Control.Concurrent.Lifted
     , forkIO
@@ -13,7 +12,6 @@ import qualified Control.Concurrent.Lifted as Raw
 import Control.Concurrent.Lifted hiding (fork)
 import Control.Monad.Trans.Control
 import System.IO.Unsafe
-import System.Mem.Weak
 import qualified Data.Map.Strict  as Map
 import Control.Exception.Lifted
 import Control.Monad.Base
@@ -40,6 +38,7 @@ globals = unsafePerformIO $ newMVar $ GlobalState
 
 forkIO :: IO () -> IO ThreadId
 forkIO = fork
+{-# INLINE forkIO #-}
 
 fork :: MonadBaseControl IO m => m () -> m ThreadId
 fork action = do
@@ -55,6 +54,7 @@ labelThread :: ThreadId -> String -> IO ()
 labelThread tid s = do
     GHC.labelThread tid s
     modifyThreads $ Map.adjust (\pt -> pt { lbl = s }) tid
+{-# INLINE labelThread #-}
 
 threadsInformation :: IO [PerThread]
 threadsInformation = do