diff options
| author | Enrico Tassi | 2019-06-12 07:09:01 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2019-06-12 07:09:01 +0200 |
| commit | 0d4300771e4a6a26d948872262a79695a38c7e0d (patch) | |
| tree | ab31353a6f01b17270f87d5d0670fc5085c75130 /plugins/derive | |
| parent | 3d162ca9095ff9299be5cc8847636a36b8e49f1e (diff) | |
| parent | ee270f7d111e5e71e90a4f3eb5e4edf5c13ea7e3 (diff) | |
Merge PR #10334: Remove the side-effect role from the kernel.
Reviewed-by: gares
Diffstat (limited to 'plugins/derive')
| -rw-r--r-- | plugins/derive/derive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/derive/derive.ml b/plugins/derive/derive.ml index 79d1c7520f..aad3967f6d 100644 --- a/plugins/derive/derive.ml +++ b/plugins/derive/derive.ml @@ -12,8 +12,8 @@ open Constr open Context open Context.Named.Declaration -let map_const_entry_body (f:constr->constr) (x:Safe_typing.private_constants Entries.const_entry_body) - : Safe_typing.private_constants Entries.const_entry_body = +let map_const_entry_body (f:constr->constr) (x: Evd.side_effects Entries.const_entry_body) + : Evd.side_effects Entries.const_entry_body = Future.chain x begin fun ((b,ctx),fx) -> (f b , ctx) , fx end |