simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

perf: make let-op functors inline, hopefully

Browse source
This commit is contained in:
Simon Cruanes 2019-12-11 11:20:59 -06:00
parent 9b76f277f7
commit b69cc33c26
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/mkshims.ml
View file

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