Use -XStrict on thread instrumentation.

1 files changed, 5 insertions, 4 deletions

diff --git a/src/Control/Concurrent/Lifted/Instrument.hs b/src/Control/Concurrent/Lifted/Instrument.hs
index 673e77cd..e4582375 100644
--- a/src/Control/Concurrent/Lifted/Instrument.hs
+++ b/src/Control/Concurrent/Lifted/Instrument.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE Strict #-}
 module Control.Concurrent.Lifted.Instrument
     ( module Control.Concurrent.Lifted
     , forkIO
@@ -21,13 +22,13 @@ import Data.Time()
 import Data.Time.Clock
 
 data PerThread = PerThread
- { lbl :: !String
- , startTime :: !UTCTime
+ { lbl :: String
+ , startTime :: UTCTime
  }
  deriving (Eq,Ord,Show)
 
 data GlobalState = GlobalState
- { threads :: ! ( Map.Map ThreadId PerThread )
+ { threads :: Map.Map ThreadId PerThread
  }
 
 globals :: MVar GlobalState
@@ -67,4 +68,4 @@ modifyThreads f = do
     g <- takeMVar globals
     let f' st = st { threads = f (threads st) }
         r = f' g
-    threads r `seq` putMVar globals r
+    putMVar globals r