Inverted Exclusive and Inclusive when parsing?

[rbardou]

Hello,

If I'm not mistaken, in the following lines of code:

ocplib-json-typed/src/json_schema.ml

Lines 829 to 852 in 50117c0

	let minimum =
	if opt_bool_field false json "exclusiveMinimum" then
	match opt_int_field json "minimum" with
	| None ->
	let err =
	"minimum field required when exclusiveMinimum is true" in
	raise (Failure err)
	| Some v -> Some (v, `Inclusive)
	else
	match opt_int_field json "minimum" with
	| None -> None
	| Some v -> Some (v, `Exclusive) in
	let maximum =
	if opt_bool_field false json "exclusiveMaximum" then
	match opt_int_field json "maximum" with
	| None ->
	let err =
	"maximum field required when exclusiveMaximum is true" in
	raise (Failure err)
	| Some v -> Some (v, `Inclusive)
	else
	match opt_int_field json "maximum" with
	| None -> None
	| Some v -> Some (v, `Exclusive) in

if exclusiveMinimum is true, this results in Inclusive, and if it is false, it results in Exclusive. Same for exclusiveMaximum. Shouldn't it be the other way around?

Cheers