From c66a18188482d5b72723ff348e6e23d3bf1847c3 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jeremie@dimino.org>
Date: Wed, 22 Aug 2018 17:16:12 +0100
Subject: [PATCH] Fix 4.02 build

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
---
 src/stdune/loc.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/stdune/loc.ml b/src/stdune/loc.ml
index 5355a336..dc5d6149 100644
--- a/src/stdune/loc.ml
+++ b/src/stdune/loc.ml
@@ -44,8 +44,7 @@ let equal_position
       { Lexing.pos_fname = f_b; pos_lnum = l_b
       ; pos_bol = b_b; pos_cnum = c_b }
       =
-      let open Int.Infix in
-      Caml.String.equal f_a f_b
+      f_a = f_b
       && l_a = l_b
       && b_a = b_b
       && c_a = c_b