Fix the compilation on 5.2.0~alpha1 about our inlined attribute

craigfe · Apr 13, 2024 · 07f031e · 07f031e
1 parent 86e8113
commit 07f031e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/progress/engine/duration.ml b/src/progress/engine/duration.ml
@@ -11,7 +11,7 @@ type nonrec t = t
 
 let equal = Mtime.Span.equal
 let compare = Mtime.Span.compare
-let compare_zero (f : int -> int -> _) a b = f (compare a b) 0 [@@inlined]
+let[@inline always] compare_zero (f : int -> int -> _) a b = f (compare a b) 0
 let ( + ) = Mtime.Span.add
 let ( < ) = compare_zero ( < )
 let ( <= ) = compare_zero ( <= )