From 31ea39949bfe67204b57f9892ad0bc367e33479e Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <rudi.grinberg@gmail.com>
Date: Fri, 23 Feb 2018 15:46:09 +0700
Subject: [PATCH] Make prefix_rules accessible through Super_context

---
 src/super_context.ml  | 3 +++
 src/super_context.mli | 5 +++++
 2 files changed, 8 insertions(+)

diff --git a/src/super_context.ml b/src/super_context.ml
index 2ca6a222..afccfd05 100644
--- a/src/super_context.ml
+++ b/src/super_context.ml
@@ -182,6 +182,9 @@ let create
       | _ -> Chdir (context.build_dir, action))
   }
 
+let prefix_rules t prefix ~f =
+  Build_system.prefix_rules t.build_system prefix ~f
+
 let add_rule t ?sandbox ?mode ?locks ?loc build =
   let build = Build.O.(>>>) build t.chdir in
   Build_system.add_rule t.build_system
diff --git a/src/super_context.mli b/src/super_context.mli
index 4fc00dbe..11512f1c 100644
--- a/src/super_context.mli
+++ b/src/super_context.mli
@@ -55,6 +55,11 @@ val expand_vars
   -> String_with_vars.t
   -> string
 
+val prefix_rules
+  : t
+  -> (unit, unit) Build.t
+  -> f:(unit -> 'a)
+  -> 'a
 val add_rule
   :  t
   -> ?sandbox:bool