Fix Op.eval in blang
Neq is compatible with Lt/Gt Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
parent
de0ccfaec4
commit
4f0d056b8b
|
@ -11,9 +11,9 @@ module Op = struct
|
||||||
|
|
||||||
let eval t (x : Ordering.t) =
|
let eval t (x : Ordering.t) =
|
||||||
match t, x with
|
match t, x with
|
||||||
| (Eq | Gte | Lte) , Eq
|
| (Eq | Gte | Lte) , Eq
|
||||||
| (Lt | Lte) , Lt
|
| (Neq | Lt | Lte) , Lt
|
||||||
| (Gt | Gte) , Gt -> true
|
| (Neq | Gt | Gte) , Gt -> true
|
||||||
| _, _ -> false
|
| _, _ -> false
|
||||||
end
|
end
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue