From c3ea3cd8a2bd29fc0129e34af4a1689bbf7519a5 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Wed, 31 Oct 2018 16:09:43 +0100
Subject: Introduce Safe_typing.set_share_reduction

---
 library/global.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'library/global.ml')

diff --git a/library/global.ml b/library/global.ml
index 009f498a9e..6461b4c37f 100644
--- a/library/global.ml
+++ b/library/global.ml
@@ -183,3 +183,6 @@ let register_inline c = globalize0 (Safe_typing.register_inline c)
 
 let set_strategy k l =
   GlobalSafeEnv.set_safe_env (Safe_typing.set_strategy (safe_env ()) k l)
+
+let set_share_reduction b =
+  globalize0 (Safe_typing.set_share_reduction b)
-- 
cgit v1.2.3