io-sim: force trace when creating timeout

Author: coot

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

@@ -349,9 +349,9 @@ schedule !thread@Thread{
           !t       = Timeout tvar tvar' nextTmid
           !timers' = PSQ.insert nextTmid expiry (TimerVars tvar tvar') timers
           !thread' = thread { threadControl = ThreadControl (k t) ctl }
-      trace <- schedule thread' simstate { timers   = timers'
-                                         , nextVid  = succ (succ nextVid)
-                                         , nextTmid = succ nextTmid }
+      !trace <- schedule thread' simstate { timers   = timers'
+                                          , nextVid  = succ (succ nextVid)
+                                          , nextTmid = succ nextTmid }
       return (SimTrace time tid tlbl (EventTimerCreated nextTmid nextVid expiry) trace)
 
     -- we do not follow `GHC.Event` behaviour here; updating a timer to the past