matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove dependence on Improt in Path

This commit is contained in:
Rudi Grinberg 2018-04-23 23:53:54 +07:00
parent 980f5037cc
commit 6dee7c9c39
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/path.ml
View File

@ -1,4 +1,4 @@
open Import
open Stdune
let explode_path =
let rec loop path acc =
@ -272,6 +272,8 @@ let of_string ?error_loc s =
let t sexp = of_string (Sexp.Of_sexp.string sexp) ~error_loc:(Sexp.Ast.loc sexp)
let sexp_of_t t = Sexp.atom_or_quoted_string (to_string t)
let initial_cwd = Sys.getcwd ()
let absolute fn =
if is_local fn then
Filename.concat initial_cwd fn
@ -466,7 +468,7 @@ let insert_after_build_dir_exn =
if not (is_local a) || String.contains b '/' then error a b;
match String.lsplit2 a ~on:'/' with
| Some ("_build", rest) ->
sprintf "_build/%s/%s" b rest
Printf.sprintf "_build/%s/%s" b rest
| _ ->
error a b