Fix 4.02 build
Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
parent
a5313be3ac
commit
c66a181884
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue