diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-04-12 18:35:21 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-04-12 18:35:21 +0200 |
| commit | a5c150a6a7fa980c5850aa247e62d02e29773235 (patch) | |
| tree | e8f9a6211c3626d80d8427887bf181d10a3476f9 /plugins | |
| parent | a74d64efb554e9fd57b8ec97fca7677033cc4fc4 (diff) | |
| parent | b63b9a86b09856262b5b7bb2b3bb01f704032d41 (diff) | |
Merge PR#441: Port Toplevel to the Stm API
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/profile_ltac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/profile_ltac.ml b/plugins/ltac/profile_ltac.ml index 58123f63e..bcb28f77c 100644 --- a/plugins/ltac/profile_ltac.ml +++ b/plugins/ltac/profile_ltac.ml @@ -374,7 +374,7 @@ let data = ref SM.empty let _ = Feedback.(add_feeder (function - | { id = State s; contents = Custom (_, "ltacprof_results", xml) } -> + | { id = s; contents = Custom (_, "ltacprof_results", xml) } -> let results = to_ltacprof_results xml in let other_results = (* Multi success can cause this *) try SM.find s !data |