1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Utilities.ml b/lib/Utilities.ml
index 0a5bd9d..a96d16f 100644
--- a/lib/Utilities.ml
+++ b/lib/Utilities.ml
@@ -1,3 +1,9 @@
+module Ordering = struct
+  type t = Equal | Smaller | Greater
+
+  let of_int x = if x < 0 then Smaller else if x > 0 then Greater else Equal
+end
+
 module Result = struct
   let ( let* ) = Result.bind
   let fmap f m = Result.bind m f