Merge branch 'master' into watch-mode

kodek16 · web-flow · commit ce562e433ac9 · 2018-08-27T15:05:51.000-04:00
diff --git a/src/dir_contents.ml b/src/dir_contents.ml
@@ -163,7 +163,15 @@ end = struct
     modules
 end
 
-module Library_modules = struct
+module Library_modules : sig
+  type t = private
+    { modules          : Module.t Module.Name.Map.t
+    ; alias_module     : Module.t option
+    ; main_module_name : Module.Name.t
+    }
+
+  val make : Library.t -> dir:Path.t -> Module.t Module.Name.Map.t -> t
+end = struct
   type t =
     { modules          : Module.t Module.Name.Map.t
     ; alias_module     : Module.t option
diff --git a/src/dir_contents.mli b/src/dir_contents.mli
@@ -17,7 +17,7 @@ val dir : t -> Path.t
 val text_files : t -> String.Set.t
 
 module Library_modules : sig
-  type t =
+  type t = private
     { modules          : Module.t Module.Name.Map.t
     ; alias_module     : Module.t option
     ; main_module_name : Module.Name.t
@@ -42,7 +42,7 @@ val mlds : t -> Dune_file.Documentation.t -> Path.t list
 
 val get : Super_context.t -> dir:Path.t -> t
 
-type kind =
+type kind = private
   | Standalone
   | Group_root of t list Lazy.t (** Sub-directories part of the group *)
   | Group_part of t
