diff options
| author | Maxime Dénès | 2017-04-12 18:35:21 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-04-12 18:35:21 +0200 |
| commit | a5c150a6a7fa980c5850aa247e62d02e29773235 (patch) | |
| tree | e8f9a6211c3626d80d8427887bf181d10a3476f9 /lib/feedback.ml | |
| parent | a74d64efb554e9fd57b8ec97fca7677033cc4fc4 (diff) | |
| parent | b63b9a86b09856262b5b7bb2b3bb01f704032d41 (diff) | |
Merge PR#441: Port Toplevel to the Stm API
Diffstat (limited to 'lib/feedback.ml')
| -rw-r--r-- | lib/feedback.ml | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/feedback.ml b/lib/feedback.ml index 7d9d6bf7f0..df6fe3a629 100644 --- a/lib/feedback.ml +++ b/lib/feedback.ml @@ -15,9 +15,6 @@ type level = | Warning | Error -type edit_id = int -type state_id = Stateid.t -type edit_or_state_id = Edit of edit_id | State of state_id type route_id = int type feedback_content = @@ -38,9 +35,9 @@ type feedback_content = | Message of level * Loc.t option * Pp.std_ppcmds type feedback = { - id : edit_or_state_id; + id : Stateid.t; + route : route_id; contents : feedback_content; - route : route_id; } let default_route = 0 @@ -56,7 +53,8 @@ let add_feeder = let del_feeder fid = Hashtbl.remove feeders fid -let feedback_id = ref (Edit 0) +let default_route = 0 +let feedback_id = ref Stateid.dummy let feedback_route = ref default_route let set_id_for_feedback ?(route=default_route) i = |