File tree Expand file tree Collapse file tree 1 file changed +16
-6
lines changed
io-sim/src/Control/Monad/IOSimPOR Expand file tree Collapse file tree 1 file changed +16
-6
lines changed Original file line number Diff line number Diff line change @@ -196,17 +196,27 @@ data Step = Step {
196
196
-- StepInfo
197
197
--
198
198
199
- -- As we run a simulation, we collect info about each previous step
199
+ -- | As we execute a simulation, we collect information about each step. This
200
+ -- information is updated as the simulation evolves by
201
+ -- `Control.Monad.IOSimPOR.Types.updateRaces`.
202
+ --
200
203
data StepInfo = StepInfo {
204
+ -- | Step that we want to reschedule to run after a step in `stepInfoRaces`
205
+ -- (there will be one schedule modification per step in
206
+ -- `stepInfoRaces`).
201
207
stepInfoStep :: ! Step ,
202
- -- Control information when we reached this step
208
+
209
+ -- | Control information when we reached this step.
203
210
stepInfoControl :: ! ScheduleControl ,
204
- -- threads that are still concurrent with this step
211
+
212
+ -- | Threads that are still concurrent with this step.
205
213
stepInfoConcurrent :: ! (Set ThreadId ),
206
- -- steps following this one that did not happen after it
207
- -- (in reverse order)
214
+
215
+ -- | Steps following this one that did not happen after it
216
+ -- (in reverse order).
208
217
stepInfoNonDep :: ! [Step ],
209
- -- later steps that race with this one
218
+
219
+ -- | Later steps that race with `stepInfoStep`.
210
220
stepInfoRaces :: ! [Step ]
211
221
}
212
222
deriving Show
You can’t perform that action at this time.
0 commit comments