diff options
| author | Gaëtan Gilbert | 2019-07-02 11:04:57 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-07-03 17:01:29 +0200 |
| commit | 9edb5777f08f338367cd4384abdc17efcf2c2892 (patch) | |
| tree | 9815d3cb1a13c28048cf4f889d3bde4b7b1cf1be /library/libnames.ml | |
| parent | d1965ba584589a528cbb6fe98bbe489137691e02 (diff) | |
Simplify (restrict_path 0 sp) -> (make_path DirPath.empty id)
This is the only use of restrict_path so we just remove it.
The name collision between Libnames.make_path (takes a dirpath) and
Lib.make_path (uses current module+section path) is a bit awkward...
Diffstat (limited to 'library/libnames.ml')
| -rw-r--r-- | library/libnames.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/library/libnames.ml b/library/libnames.ml index 18af216e46..485f8837e8 100644 --- a/library/libnames.ml +++ b/library/libnames.ml @@ -128,11 +128,6 @@ let path_of_string s = let pr_path sp = str (string_of_path sp) -let restrict_path n sp = - let dir, s = repr_path sp in - let dir' = List.firstn n (DirPath.repr dir) in - make_path (DirPath.make dir') s - (*s qualified names *) type qualid_r = full_path type qualid = qualid_r CAst.t |