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) =
|
||||
match t, x with
|
||||
| (Eq | Gte | Lte) , Eq
|
||||
| (Lt | Lte) , Lt
|
||||
| (Gt | Gte) , Gt -> true
|
||||
| (Eq | Gte | Lte) , Eq
|
||||
| (Neq | Lt | Lte) , Lt
|
||||
| (Neq | Gt | Gte) , Gt -> true
|
||||
| _, _ -> false
|
||||
end
|
||||
|
||||
|
|
Loading…
Reference in New Issue