fix: compat in CCArray

This commit is contained in:
Simon Cruanes 2022-02-21 22:26:51 -05:00
parent 68e539173f
commit f6dc3b23f8
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6

View file

@ -720,11 +720,15 @@ module Infix = struct
let (--) = (--)
let (--^) = (--^)
[@@@ifge 4.8]
type 'a t = 'a array
let ( let* ) = (>>=)
let (let+) = (>|=)
let[@inline] (and+) a1 a2 = monoid_product (fun x y->x,y) a1 a2
let ( and* ) = (and+)
[@@@endif]
end
include Infix