fix package.json error

Author: aspeddro

jscomp/bsb/bsb_build_schemas.ml

@@ -127,4 +127,4 @@ let ignored_dirs = "ignored-dirs"
 module PackageJson = struct
   let dependencies = "dependencies"
   let devDependencies = "devDependencies"
-end
+end

jscomp/bsb/bsb_build_util.ml

@@ -182,7 +182,7 @@ let rec walk_all_deps_aux (visited : string Hash_string.t) (paths : string list)
                        in
                        let bsconfig = dep_dir // Literals.bsconfig_json in
                        (* NOTE: "rescript" package should be ignore *)
-                       dep <> "rescript" && Sys.file_exists bsconfig)
+                       dep <> Literals.rescript && Sys.file_exists bsconfig)
               in
               List.iter
                 (fun dep ->
@@ -194,8 +194,7 @@ let rec walk_all_deps_aux (visited : string Hash_string.t) (paths : string list)
                     ~top:(Expect_name dep) package_dir queue
                     ~pinned_dependencies)
                 bsb_deps
-          | Some _ | None ->
-              Bsb_exception.invalid_package_json_spec "expect a json object {}"
+          | _ -> ()
         in
         explore_deps_in_package_json Bsb_build_schemas.PackageJson.dependencies;
         (match top with

jscomp/bsb/bsb_config_parse.ml

@@ -203,8 +203,7 @@ let extract_dependencies_from_package_json (map : json_map) cwd (field : string)
       Ext_list.map bsb_deps (fun dep ->
           resolve_package cwd (Bsb_pkg_types.string_as_package dep))
   | Some config ->
-      Bsb_exception.package_json_config_error config
-        (field ^ " expect a object")
+      Bsb_exception.package_json_config_error config (field ^ " expect a object")
 
 (* return an empty array if not found *)
 let extract_string_list (map : json_map) (field : string) : string list =

jscomp/ext/literals.ml

@@ -178,3 +178,5 @@ let lazy_done = "LAZY_DONE"
 let lazy_val = "VAL"
 
 let pure = "@__PURE__"
+
+let rescript = "rescript"