tweak

Author: bobzhang

jscomp/bsb_helper/bsb_db_decode.ml

@@ -102,7 +102,8 @@ type module_info =  {
 
 
 let find_opt 
-  ((sorteds,whole) : t )  i (key : string) 
+  ((sorteds,whole) : t )  
+    (i : int) (key : string) 
     : module_info option = 
   let group = sorteds.(i) in 
   let i = Ext_string_array.find_sorted  group.modules key in 

jscomp/bsb_helper/bsb_helper_depfile_gen.ml

@@ -119,13 +119,14 @@ let oc_cmi buf namespace source =
     When ns is turned on, `B` is interprted as `Ns-B` which is a cyclic dependency,
     it can be errored out earlier
 *)
-let find_module db dependent_module is_not_lib_dir (index : Bsb_dir_index.t) = 
+let find_module db dependent_module is_not_lib_dir 
+  : Bsb_db_decode.module_info option = 
   let opt = Bsb_db_decode.find_opt db 0 dependent_module in 
   match opt with 
   | Some _ -> opt
   | None -> 
     if is_not_lib_dir then 
-      Bsb_db_decode.find_opt db (index :> int) dependent_module 
+      Bsb_db_decode.find_opt db 1 dependent_module 
     else None 
 let oc_impl 
     (mlast : string)
@@ -163,7 +164,7 @@ let oc_impl
       end
     );
     (match  
-      find_module db dependent_module is_not_lib_dir index  
+      find_module db dependent_module is_not_lib_dir 
     with      
     | None -> ()
     | Some ({dir_name; case }) -> 
@@ -225,7 +226,7 @@ let oc_intf
          exit 2
        end
     );
-    (match  find_module db dependent_module is_not_lib_dir index 
+    (match  find_module db dependent_module is_not_lib_dir 
      with     
      | None -> ()
      | Some {dir_name; case} ->