Stage Var.compare

2018-03-12 10:47:56 +07:00 · 2018-03-12 10:47:56 +07:00 · 161be3af1c
parent 1f99d0fb70
commit 161be3af1c
1 changed files with 6 additions and 5 deletions
--- 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