io-sim-por: added step in SimPORTrace

Fixes two innocent todos.

Author: coot

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

@@ -554,14 +554,12 @@ schedule thread@Thread{
           return $
             SimPORTrace time tid tstep tlbl (EventTxCommitted written' created' (Just effect')) $
             traceMany
-              -- TODO: step
-              [ (time, tid', (-1), tlbl', EventTxWakeup vids')
+              [ (time, tid', tstep, tlbl', EventTxWakeup vids')
               | tid' <- unblocked
               , let tlbl' = lookupThreadLabel tid' threads
               , let Just vids' = Set.toList <$> Map.lookup tid' wokeby ] $
             traceMany
-              -- TODO: step
-              [ (time, tid, (-1), tlbl, EventLog tr)
+              [ (time, tid, tstep, tlbl, EventLog tr)
               | tr <- tvarTraces
               ] $
             SimPORTrace time tid tstep tlbl (EventUnblocked unblocked) $