diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/libnames.ml | 1 | ||||
| -rw-r--r-- | library/libnames.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/library/libnames.ml b/library/libnames.ml index e8bdb4818f..4440780a55 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -117,6 +117,7 @@ let dirpath_of_string s = | dir -> make_dirpath dir module Dirset = Set.Make(struct type t = dir_path let compare = compare end) +module Dirmap = Map.Make(struct type t = dir_path let compare = compare end) (*s Section paths are absolute names *) diff --git a/library/libnames.mli b/library/libnames.mli index 938be56441..e902cec9b4 100644 --- a/library/libnames.mli +++ b/library/libnames.mli @@ -52,6 +52,7 @@ val extract_dirpath_prefix : int -> dir_path -> dir_path val is_dirpath_prefix_of : dir_path -> dir_path -> bool module Dirset : Set.S with type elt = dir_path +module Dirmap : Map.S with type key = dir_path (*s Section paths are {\em absolute} names *) type section_path |