matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Stage Var.compare

This commit is contained in:
Rudi Grinberg 2018-03-12 10:47:56 +07:00
parent 1f99d0fb70
commit 161be3af1c
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/env.ml
View File

@ -2,11 +2,12 @@ open Import
module Var = struct module Var = struct
type t = string type t = string
let compare a b = let compare =
if Sys.win32 then if Sys.win32 then (
String.compare (String.lowercase a) (String.lowercase b) fun a b -> String.compare (String.lowercase a) (String.lowercase b)
else ) else (
String.compare a b String.compare
)
let equal a b = let equal a b =
match compare a b with match compare a b with