diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-29 15:52:49 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-08-29 18:43:06 +0200 |
| commit | e3f2781feb49325615affaaef2853c56874e6c22 (patch) | |
| tree | b555e77cb1833390eb37a67731a4f34a1a030885 /printing/genprint.ml | |
| parent | 029f850bceb1f68640fe7b703b0875ad02486691 (diff) | |
Simplification of Genarg unpackers.
Instead of having a version of unpackers for each level, we use a dummy argument
to force unification of types.
Diffstat (limited to 'printing/genprint.ml')
| -rw-r--r-- | printing/genprint.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/printing/genprint.ml b/printing/genprint.ml index 02f2dd63b..f8458ad6e 100644 --- a/printing/genprint.ml +++ b/printing/genprint.ml @@ -40,6 +40,6 @@ let raw_print wit v = (Print.obj wit).raw v let glb_print wit v = (Print.obj wit).glb v let top_print wit v = (Print.obj wit).top v -let generic_raw_print v = raw_unpack { raw_unpack = raw_print; } v -let generic_glb_print v = glb_unpack { glb_unpack = glb_print; } v -let generic_top_print v = top_unpack { top_unpack = top_print; } v +let generic_raw_print v = unpack { unpacker = fun w v -> raw_print w (raw v); } v +let generic_glb_print v = unpack { unpacker = fun w v -> glb_print w (glb v); } v +let generic_top_print v = unpack { unpacker = fun w v -> top_print w (top v); } v |