Remove all leftovers of pinned-dependencies handling

Author: cknitt

analysis/examples/workspace-project/bsconfig.json

@@ -7,6 +7,5 @@
     "in-source": true
   },
   "suffix": ".mjs",
-  "pinned-dependencies": ["common", "myplugin", "app"],
   "bs-dependencies": ["common", "myplugin", "app"]
 }

compiler/bsb/bsb_build_schemas.ml

@@ -28,7 +28,6 @@ let ppx_flags = "ppx-flags"
 let pp_flags = "pp-flags"
 let bs_external_includes = "bs-external-includes"
 let bs_dependencies = "bs-dependencies"
-let pinned_dependencies = "pinned-dependencies"
 let bs_dev_dependencies = "bs-dev-dependencies"
 let sources = "sources"
 let dir = "dir"

compiler/bsb/bsb_build_util.ml

@@ -132,7 +132,7 @@ let ( |? ) m (key, cb) = m |> Ext_json.test key cb
 
 type top = Expect_none | Expect_name of string
 
-type package_context = {proj_dir: string; top: top; is_pinned: bool}
+type package_context = {proj_dir: string; top: top}
 
 (**
    TODO: check duplicate package name
@@ -148,15 +148,8 @@ type package_context = {proj_dir: string; top: top; is_pinned: bool}
 let pp_packages_rev ppf lst =
   Ext_list.rev_iter lst (fun s -> Format.fprintf ppf "%s " s)
 
-let extract_pinned_dependencies (map : Ext_json_types.t Map_string.t) :
-    Set_string.t =
-  match Map_string.find_opt map Bsb_build_schemas.pinned_dependencies with
-  | None -> Set_string.empty
-  | Some (Arr {content}) -> Set_string.of_list (get_list_string content)
-  | Some config -> Bsb_exception.config_error config "expect an array of string"
-
 let rec walk_all_deps_aux (visited : string Hash_string.t) (paths : string list)
-    ~(top : top) (dir : string) (queue : _ Queue.t) ~pinned_dependencies =
+    ~(top : top) (dir : string) (queue : _ Queue.t) =
   match
     Bsb_config_load.load_json ~per_proj_dir:dir ~warn_legacy_config:false
   with
@@ -182,7 +175,7 @@ let rec walk_all_deps_aux (visited : string Hash_string.t) (paths : string list)
     if Hash_string.mem visited cur_package_name then
       Bsb_log.info "@{<info>Visited before@} %s@." cur_package_name
     else
-      let explore_deps (deps : string) pinned_dependencies =
+      let explore_deps (deps : string) =
         map
         |? ( deps,
              `Arr
@@ -196,38 +189,20 @@ let rec walk_all_deps_aux (visited : string Hash_string.t) (paths : string list)
                        in
                        walk_all_deps_aux visited package_stacks
                          ~top:(Expect_name new_package) package_dir queue
-                         ~pinned_dependencies
                      | _ -> Bsb_exception.errorf ~loc "%s expect an array" deps))
            )
         |> ignore
       in
-      let is_pinned =
-        match top with
-        | Expect_name n when Set_string.mem pinned_dependencies n -> true
-        | _ -> false
-      in
-      let pinned_dependencies =
-        match is_pinned with
-        | true ->
-          let transitive_pinned_dependencies =
-            extract_pinned_dependencies map
-          in
-          Set_string.union transitive_pinned_dependencies pinned_dependencies
-        | false -> pinned_dependencies
-      in
-      explore_deps Bsb_build_schemas.bs_dependencies pinned_dependencies;
+      explore_deps Bsb_build_schemas.bs_dependencies;
       (match top with
-      | Expect_none ->
-        explore_deps Bsb_build_schemas.bs_dev_dependencies pinned_dependencies
-      | Expect_name _ when is_pinned ->
-        explore_deps Bsb_build_schemas.bs_dev_dependencies pinned_dependencies
+      | Expect_none -> explore_deps Bsb_build_schemas.bs_dev_dependencies
       | Expect_name _ -> ());
-      Queue.add {top; proj_dir = dir; is_pinned} queue;
+      Queue.add {top; proj_dir = dir} queue;
       Hash_string.add visited cur_package_name dir
   | _ -> ()
 
-let walk_all_deps dir ~pinned_dependencies : package_context Queue.t =
+let walk_all_deps dir : package_context Queue.t =
   let visited = Hash_string.create 0 in
   let cb = Queue.create () in
-  walk_all_deps_aux visited [] ~top:Expect_none dir cb ~pinned_dependencies;
+  walk_all_deps_aux visited [] ~top:Expect_none dir cb;
   cb

compiler/bsb/bsb_build_util.mli

@@ -17,7 +17,7 @@
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU Lesser General Public License for more details.
- * 
+ *
  * You should have received a copy of the GNU Lesser General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
@@ -82,9 +82,6 @@ type result = {path: string; checked: bool}
 *)
 val resolve_bsb_magic_file : cwd:string -> desc:string -> string -> result
 
-type package_context = {proj_dir: string; top: top; is_pinned: bool}
-
-val extract_pinned_dependencies : Ext_json_types.t Map_string.t -> Set_string.t
+type package_context = {proj_dir: string; top: top}
 
-val walk_all_deps :
-  string -> pinned_dependencies:Set_string.t -> package_context Queue.t
+val walk_all_deps : string -> package_context Queue.t

compiler/bsb/bsb_clean.ml

@@ -51,8 +51,8 @@ let clean_bs_garbage proj_dir =
     Bsb_log.warn "@{<warning>Failed@} to clean due to %s" (Printexc.to_string e)
 
 let clean_bs_deps proj_dir =
-  let _, _, pinned_dependencies = Bsb_config_parse.deps_from_bsconfig () in
-  let queue = Bsb_build_util.walk_all_deps proj_dir ~pinned_dependencies in
+  let _, _ = Bsb_config_parse.deps_from_bsconfig () in
+  let queue = Bsb_build_util.walk_all_deps proj_dir in
   Queue.iter
     (fun (pkg_cxt : Bsb_build_util.package_context) ->
       (* whether top or not always do the cleaning *)

compiler/bsb/bsb_config_parse.ml

@@ -242,12 +242,11 @@ let interpret_json ~(filename : string) ~(json : Ext_json_types.t)
     in
     let bs_dev_dependencies =
       match package_kind with
-      | Toplevel | Pinned_dependency _ ->
+      | Toplevel ->
         extract_dependencies map per_proj_dir
           Bsb_build_schemas.bs_dev_dependencies
       | Dependency _ -> []
     in
-    let pinned_dependencies = Bsb_build_util.extract_pinned_dependencies map in
     match map.?(Bsb_build_schemas.sources) with
     | Some sources ->
       let cut_generators =
@@ -263,12 +262,10 @@ let interpret_json ~(filename : string) ~(json : Ext_json_types.t)
       let jsx = Bsb_jsx.from_map map in
       let jsx, bsc_flags =
         match package_kind with
-        | Pinned_dependency x | Dependency x ->
-          ({jsx with version = x.jsx.version}, bsc_flags)
+        | Dependency x -> ({jsx with version = x.jsx.version}, bsc_flags)
         | Toplevel -> (jsx, bsc_flags)
       in
       {
-        pinned_dependencies;
         gentype_config;
         package_name;
         namespace;
@@ -294,7 +291,7 @@ let interpret_json ~(filename : string) ~(json : Ext_json_types.t)
         package_specs =
           (match package_kind with
           | Toplevel -> Bsb_package_specs.from_map ~cwd:per_proj_dir map
-          | Pinned_dependency x | Dependency x -> x.package_specs);
+          | Dependency x -> x.package_specs);
         file_groups = groups;
         files_to_install = Queue.create ();
         jsx;
@@ -311,8 +308,5 @@ let deps_from_bsconfig () =
   match
     Bsb_config_load.load_json ~per_proj_dir:cwd ~warn_legacy_config:false
   with
-  | _, Obj {map} ->
-    ( Bsb_package_specs.from_map ~cwd map,
-      Bsb_jsx.from_map map,
-      Bsb_build_util.extract_pinned_dependencies map )
+  | _, Obj {map} -> (Bsb_package_specs.from_map ~cwd map, Bsb_jsx.from_map map)
   | _, _ -> assert false

compiler/bsb/bsb_config_parse.mli

@@ -22,7 +22,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
-val deps_from_bsconfig : unit -> Bsb_package_specs.t * Bsb_jsx.t * Set_string.t
+val deps_from_bsconfig : unit -> Bsb_package_specs.t * Bsb_jsx.t
 
 val interpret_json :
   filename:string ->

compiler/bsb/bsb_config_types.ml

@@ -41,7 +41,6 @@ type t = {
   pp_file: string option;
   bs_dependencies: dependencies;
   bs_dev_dependencies: dependencies;
-  pinned_dependencies: Set_string.t;
   warning: Bsb_warning.t;
   (*TODO: maybe we should always resolve rescript
     so that we can calculate correct relative path in

compiler/bsb/bsb_ninja_regen.ml

@@ -88,9 +88,7 @@ let regenerate_ninja ~(package_kind : Bsb_package_kind.t) ~forced ~per_proj_dir
       Bsb_watcher_gen.generate_sourcedirs_meta
         ~name:(lib_bs_dir // Literals.sourcedirs_meta)
         config.file_groups
-    | Pinned_dependency _ (* FIXME: seems need to be watched *) | Dependency _
-      ->
-      ());
+    | Dependency _ -> ());
 
     Bsb_ninja_gen.output_ninja_and_namespace_map ~per_proj_dir ~package_kind
       config;

compiler/bsb/bsb_package_kind.ml

@@ -1,4 +1,4 @@
-(* Copyright (C) 2020 - Hongbo Zhang, Authors of ReScript 
+(* Copyright (C) 2020 - Hongbo Zhang, Authors of ReScript
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU Lesser General Public License as published by
@@ -24,10 +24,7 @@
 
 type dep_payload = {package_specs: Bsb_package_specs.t; jsx: Bsb_jsx.t}
 
-type t =
-  | Toplevel
-  | Dependency of dep_payload
-  | Pinned_dependency of dep_payload
+type t = Toplevel | Dependency of dep_payload
 (* This package specs comes from the toplevel to
    override the current settings
 *)
@@ -40,8 +37,3 @@ let encode_no_nl (x : t) =
     ^ Bsb_package_specs.package_flag_of_package_specs x.package_specs
         ~dirname:"."
     ^ Bsb_jsx.encode_no_nl x.jsx
-  | Pinned_dependency x ->
-    "2"
-    ^ Bsb_package_specs.package_flag_of_package_specs x.package_specs
-        ~dirname:"."
-    ^ Bsb_jsx.encode_no_nl x.jsx