From ae6b09b180a7a59a59a51c30a3bb0d7efea987b9 Mon Sep 17 00:00:00 2001
From: Jeremie Dimino <jdimino@janestreet.com>
Date: Thu, 2 Feb 2017 10:31:36 +0000
Subject: [PATCH] 114.30+68

---
 src/lib.ml  | 9 +++++----
 src/lib.mli | 2 ++
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/lib.ml b/src/lib.ml
index 0c7d6921..80a4f190 100644
--- a/src/lib.ml
+++ b/src/lib.ml
@@ -38,11 +38,12 @@ let header_files ts =
           List.fold_left l ~init:acc ~f:(fun acc fn ->
               Path.relative dir (fn ^ ".h") :: acc))
 
+let include_paths ts =
+  List.fold_left ts ~init:Path.Set.empty ~f:(fun acc t ->
+    Path.Set.add (dir t) acc)
+
 let include_flags ts =
-  let dirs =
-    List.fold_left ts ~init:Path.Set.empty ~f:(fun acc t ->
-      Path.Set.add (dir t) acc)
-  in
+  let dirs = include_paths ts in
   Arg_spec.S (List.concat_map (Path.Set.elements dirs) ~f:(fun dir ->
     [Arg_spec.A "-I"; Path dir]))
 
diff --git a/src/lib.mli b/src/lib.mli
index a91de9b0..244fd0a7 100644
--- a/src/lib.mli
+++ b/src/lib.mli
@@ -14,6 +14,8 @@ module Set : Set.S with type elt := t
 
 val header_files : t list -> Path.t list
 
+val include_paths : t list -> Path.Set.t
+
 val include_flags : t list -> _ Arg_spec.t
 
 val c_include_flags : t list -> _ Arg_spec.t