change label to meaningful names

bobzhang · bobzhang · commit 5e8ee3fd319d · 2019-09-02T11:53:05.000+08:00
diff --git a/jscomp/bsb/bsb_config_parse.ml b/jscomp/bsb/bsb_config_parse.ml
@@ -376,7 +376,7 @@ let extract_js_post_build (map : json_map) cwd : string option =
 let interpret_json 
     ~toplevel_package_specs
     ~bsc_dir 
-    ~cwd  
+    ~per_proj_dir:(cwd:string)
 
   : Bsb_config_types.t =
 
diff --git a/jscomp/bsb/bsb_config_parse.mli b/jscomp/bsb/bsb_config_parse.mli
@@ -31,7 +31,7 @@ val package_specs_from_bsconfig :
 val interpret_json : 
     toplevel_package_specs:Bsb_package_specs.t option -> 
     bsc_dir:string -> 
-    cwd:string -> 
+    per_proj_dir:string -> 
     Bsb_config_types.t
 
 
diff --git a/jscomp/bsb/bsb_ninja_regen.ml b/jscomp/bsb/bsb_ninja_regen.ml
@@ -62,7 +62,7 @@ let regenerate_ninja
       Bsb_config_parse.interpret_json 
         ~toplevel_package_specs
         ~bsc_dir
-        ~cwd in 
+        ~per_proj_dir:cwd in 
     (* create directory, lib/bs, lib/js, lib/es6 etc *)    
     Bsb_build_util.mkp lib_bs_dir;         
     Bsb_package_specs.list_dirs_by config.package_specs
