Data_encoding: use constant from ocplib-json-typed
This commit is contained in:
parent
ea500256f0
commit
c77cbcb30b
@ -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"
|
||||||
|
Loading…
Reference in New Issue
Block a user