Fix Op.eval in blang

Neq is compatible with Lt/Gt Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
2018-07-31 13:44:39 +02:00 · 2018-07-31 13:44:39 +02:00 · 4f0d056b8b
parent de0ccfaec4
commit 4f0d056b8b
1 changed files with 3 additions and 3 deletions
--- a/src/blang.ml
+++ b/src/blang.ml
@ -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