support pinned-deps

Author: aspeddro

jscomp/bsb/bsb_world.ml

@@ -26,7 +26,7 @@ let ( // ) = Ext_path.combine
 let vendor_ninja = Bsb_global_paths.vendor_ninja
 
 let make_world_deps cwd (config : Bsb_config_types.t option)
-    (ninja_args : string array) =
+    (ninja_args : string array) warn_as_error =
   let package_specs, jsx, uncurried, pinned_dependencies =
     match config with
     | None ->
@@ -71,7 +71,7 @@ let make_world_deps cwd (config : Bsb_config_types.t option)
                    else Dependency { package_specs; jsx; uncurried })
                  ~per_proj_dir:proj_dir ~forced:false
                  ~warn_legacy_config:false
-                 ~warn_as_error:None
+                 ~warn_as_error:(if is_pinned then warn_as_error else None)
              in
              let command =
                { Bsb_unix.cmd = vendor_ninja; cwd = lib_bs_dir; args }

jscomp/bsb/bsb_world.mli

@@ -23,4 +23,4 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
 val make_world_deps :
-  string -> Bsb_config_types.t option -> string array -> unit
+  string -> Bsb_config_types.t option -> string array -> string option -> unit

jscomp/bsb_exe/rescript_main.ml

@@ -159,7 +159,7 @@ let build_subcommand ~start argv argv_len =
           ~warn_legacy_config:true
           ~warn_as_error
         in
-      if not !no_deps_mode then Bsb_world.make_world_deps Bsb_global_paths.cwd config_opt ninja_args;
+      if not !no_deps_mode then Bsb_world.make_world_deps Bsb_global_paths.cwd config_opt ninja_args warn_as_error;
       if !do_install then install_target ();
       ninja_command_exit ninja_args
 
@@ -224,7 +224,7 @@ let () =
           ~warn_legacy_config:true
           ~warn_as_error:None
       in
-      Bsb_world.make_world_deps Bsb_global_paths.cwd config_opt [||];
+      Bsb_world.make_world_deps Bsb_global_paths.cwd config_opt [||] None;
       ninja_command_exit [||])
     else
       match argv.(1) with