io-sim: strictness annotations in reschedule

Author: coot

io-sim/src/Control/Monad/IOSim/Internal.hs

@@ -690,7 +690,7 @@ reschedule !simstate@SimState{ threads, timers, curTime = time } =
     case removeMinimums timers of
       Nothing -> return (TraceDeadlock time (labelledThreads threads))
 
-      Just (tmids, time', fired, timers') -> assert (time' >= time) $ do
+      Just (tmids, !time', !fired, !timers') -> assert (time' >= time) $ do
 
         -- Reuse the STM functionality here to write all the timer TVars.
         -- Simplify to a special case that only reads and writes TVars.
@@ -700,8 +700,8 @@ reschedule !simstate@SimState{ threads, timers, curTime = time } =
 
         let (unblocked,
              simstate') = unblockThreads wakeup simstate
-        trace <- reschedule simstate' { curTime = time'
-                                      , timers  = timers' }
+        !trace <- reschedule simstate' { curTime = time'
+                                       , timers  = timers' }
         return $
           traceMany ([ (time', ThreadId [-1], Just "timer", EventTimerExpired tmid)
                      | tmid <- tmids ]