From 161be3af1ce61c91b2cd81628f1c95a407213e3c Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Mon, 12 Mar 2018 10:47:56 +0700
Subject: [PATCH] Stage Var.compare

---
 src/env.ml | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/env.ml b/src/env.ml
index 772c7772..f0160155 100644
--- a/src/env.ml
+++ b/src/env.ml
@@ -2,11 +2,12 @@ open Import
 
 module Var = struct
   type t = string
-  let compare a b =
-    if Sys.win32 then
-      String.compare (String.lowercase a) (String.lowercase b)
-    else
-      String.compare a b
+  let compare =
+    if Sys.win32 then (
+      fun a b -> String.compare (String.lowercase a) (String.lowercase b)
+    ) else (
+      String.compare
+    )
 
   let equal a b =
     match compare a b with