From b69cc33c26c950561b7dd8788ed36eb6d91d1edf Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 11 Dec 2019 11:20:59 -0600 Subject: [PATCH] perf: make let-op functors inline, hopefully --- src/core/mkshims.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/core/mkshims.ml b/src/core/mkshims.ml index 87684bc3..8f018966 100644 --- a/src/core/mkshims.ml +++ b/src/core/mkshims.ml @@ -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 () =