Data_encoding: use constant from ocplib-json-typed

2018-01-17 22:22:20 -05:00 · 2018-01-17 22:22:20 -05:00 · c77cbcb30b
commit c77cbcb30b
parent ea500256f0
1 changed files with 1 additions and 1 deletions
--- a/src/lib_data_encoding/data_encoding.ml
+++ b/src/lib_data_encoding/data_encoding.ml
@ -385,7 +385,7 @@ module Json = struct
    function
    | Null -> null
    | Empty -> empty
-    | Constant s -> string_enum [s, ()]
+    | Constant s -> constant s
    | Ignore -> unit
    | Int8 -> ranged_int ~minimum:~-(1 lsl 7) ~maximum:((1 lsl 7) - 1) "int8"
    | Uint8 -> ranged_int ~minimum:0 ~maximum:((1 lsl 8) - 1) "uint8"