diff options
| author | Pierre-Marie Pédrot | 2019-06-06 21:33:30 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-06 21:33:30 +0200 |
| commit | 53e97e17e363e5b6f808b7e8d2f7eab69e236705 (patch) | |
| tree | 1b1f32b16d9e45a0a6d5d987f7527c2f22c2c6d2 /doc/plugin_tutorial/tuto1/src/simple_print.ml | |
| parent | 20ee51330564b9ae6c3d3d0981db5184f99572ed (diff) | |
| parent | 75c99f5c048ff8dd7daf0d1692fa91f3ca8aeaff (diff) | |
Merge PR #10304: Clean up tuto0 and tuto1 to use better practices and explain more
Ack-by: SkySkimmer
Reviewed-by: gares
Reviewed-by: ppedrot
Ack-by: tlringer
Diffstat (limited to 'doc/plugin_tutorial/tuto1/src/simple_print.ml')
| -rw-r--r-- | doc/plugin_tutorial/tuto1/src/simple_print.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/doc/plugin_tutorial/tuto1/src/simple_print.ml b/doc/plugin_tutorial/tuto1/src/simple_print.ml index 22a0163fbb..48b5f2214c 100644 --- a/doc/plugin_tutorial/tuto1/src/simple_print.ml +++ b/doc/plugin_tutorial/tuto1/src/simple_print.ml @@ -12,6 +12,6 @@ let simple_body_access gref = | Globnames.ConstRef cst -> let cb = Environ.lookup_constant cst (Global.env()) in match Global.body_of_constant_body Library.indirect_accessor cb with - | Some(e, _) -> e + | Some(e, _) -> EConstr.of_constr e | None -> failwith "This term has no value" |