From 4f0d056b8bd5107583ce0ea9047925efb35ee7af Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Tue, 31 Jul 2018 13:44:39 +0200
Subject: [PATCH] Fix Op.eval in blang

Neq is compatible with Lt/Gt

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
---
 src/blang.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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