Operator mismatch fix

wow this remained unspotted for some time...
This commit is contained in:
Louis Gesbert 2023-10-03 18:44:12 +02:00
parent 22045a2f06
commit 8194abaf93

View File

@ -75,7 +75,7 @@ let name : type a. a t -> string = function
| Div_int_int -> "o_div_int_int" | Div_int_int -> "o_div_int_int"
| Div_rat_rat -> "o_div_rat_rat" | Div_rat_rat -> "o_div_rat_rat"
| Div_mon_mon -> "o_div_mon_mon" | Div_mon_mon -> "o_div_mon_mon"
| Div_mon_rat -> "o_div_mon_mon" | Div_mon_rat -> "o_div_mon_rat"
| Div_dur_dur -> "o_div_dur_dur" | Div_dur_dur -> "o_div_dur_dur"
| Lt -> "o_lt" | Lt -> "o_lt"
| Lt_int_int -> "o_lt_int_int" | Lt_int_int -> "o_lt_int_int"