diff options
| author |  Alec Faithfull <alef@itu.dk> | 2015-10-06 13:50:59 +0200 |
|---|---|---|
| committer | Alec Faithfull <alef@itu.dk> | 2015-10-09 10:53:29 +0200 |
| commit | b2007e86b4a28570eee52439ad8b9fee603443b8 (patch) | |
| tree | 2d1fd2cb98fa75d589fb8425fed1339ce2a7514d /stm/stm.mli | |
| parent | 73daf37ccc7a44cd29c9b67405111756c75cb26a (diff) | |
STM: Pass exception information to unreachable_state_hook functions
This lets hooks treat different exceptions in different ways; in
particular, user interrupts can now be safely ignored
Diffstat (limited to 'stm/stm.mli')
| -rw-r--r-- | stm/stm.mli | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/stm.mli b/stm/stm.mli index 4bad7f0a6..2453f258c 100644 --- a/stm/stm.mli +++ b/stm/stm.mli @@ -100,7 +100,7 @@ val state_computed_hook : (Stateid.t -> in_cache:bool -> unit) Hook.t val parse_error_hook : (Feedback.edit_or_state_id -> Loc.t -> Pp.std_ppcmds -> unit) Hook.t val execution_error_hook : (Stateid.t -> Loc.t -> Pp.std_ppcmds -> unit) Hook.t -val unreachable_state_hook : (Stateid.t -> unit) Hook.t +val unreachable_state_hook : (Stateid.t -> Exninfo.iexn -> unit) Hook.t (* ready means that master has it at hand *) val state_ready_hook : (Stateid.t -> unit) Hook.t |