diff --git a/src/blang.ml b/src/blang.ml
index 6addc0d0..042d4ce2 100644
--- 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