diff --git a/io-sim/CHANGELOG.md b/io-sim/CHANGELOG.md index 9ad02b79..4e24b5da 100644 --- a/io-sim/CHANGELOG.md +++ b/io-sim/CHANGELOG.md @@ -1,5 +1,12 @@ # Revision history of io-sim +## Next version + +### Patch + +* `traceEvents` no longer stops at the first `TraceRacesFound`, which traces + from `controlSimTrace` contain, so it returns every event of such a trace. + ## 1.11.0.0 ### Breaking changes diff --git a/io-sim/src/Control/Monad/IOSim.hs b/io-sim/src/Control/Monad/IOSim.hs index 53f9ad59..9c3c834e 100644 --- a/io-sim/src/Control/Monad/IOSim.hs +++ b/io-sim/src/Control/Monad/IOSim.hs @@ -459,6 +459,7 @@ traceEvents (SimTrace time tid tlbl event t) = (time, tid, tlbl, event) : traceEvents t traceEvents (SimPORTrace time tid _ tlbl event t) = (time, tid, tlbl, event) : traceEvents t +traceEvents (TraceRacesFound _ t) = traceEvents t traceEvents _ = []