Data_encoding: use constant from ocplib-json-typed

This commit is contained in:
Milo Davis 2018-01-17 22:22:20 -05:00 committed by Grégoire Henry
parent ea500256f0
commit c77cbcb30b

View File

@ -385,7 +385,7 @@ module Json = struct
function function
| Null -> null | Null -> null
| Empty -> empty | Empty -> empty
| Constant s -> string_enum [s, ()] | Constant s -> constant s
| Ignore -> unit | Ignore -> unit
| Int8 -> ranged_int ~minimum:~-(1 lsl 7) ~maximum:((1 lsl 7) - 1) "int8" | Int8 -> ranged_int ~minimum:~-(1 lsl 7) ~maximum:((1 lsl 7) - 1) "int8"
| Uint8 -> ranged_int ~minimum:0 ~maximum:((1 lsl 8) - 1) "uint8" | Uint8 -> ranged_int ~minimum:0 ~maximum:((1 lsl 8) - 1) "uint8"