perf: make let-op functors inline, hopefully

This commit is contained in:
Simon Cruanes 2019-12-11 11:20:59 -06:00
parent 9b76f277f7
commit b69cc33c26

View file

@ -126,7 +126,7 @@ let shims_let_op_post_408 =
let (and+) = X.monoid_product
let (let*) = X.(>>=)
let (and*) = X.monoid_product
end
end[@@inline]
module type S2 = sig
type ('a,'e) t_let2
@ -147,7 +147,7 @@ let shims_let_op_post_408 =
let (and+) = X.monoid_product
let (let*) = X.(>>=)
let (and*) = X.monoid_product
end
end[@@inline]
"
let () =