Skip to content
Snippets Groups Projects
Commit c59f5712 authored by David Bühler's avatar David Bühler
Browse files

[Eva] Cvalue: fixes display of enumeration labels.

parent a570dc5d
No related branches found
No related tags found
No related merge requests found
......@@ -232,7 +232,7 @@ module V = struct
in
let pretty_item fmt i =
match S.find_opt i lookup_map with
| Some ei -> Format.fprintf fmt "%s" ei.eiorig_name
| Some ei -> Printer.pp_varname fmt ei.eiorig_name
| None -> Format.fprintf fmt "%a" Integer.pretty i
in
Pretty_utils.pp_iter ~pre:"@[<hov 1>{" ~suf:"}@]" ~sep:";@ "
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment