From aab3495857146187622bb0034c4e025b8e7ab6d4 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 28 Jul 2017 07:59:22 -0400
Subject: Removed LANGUAGE Strict from Concurrent instrumentation.

---
 src/Control/Concurrent/Lifted/Instrument.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3