remove one unused file

Author: bobzhang

jscomp/bsb/bsb_templates.ml

@@ -1,4 +1,8 @@
-let root = OCamlRes.Res.([
+
+type  node = 
+  | Dir of string *  node list 
+  | File of string *  string  
+let root = ([
    Dir("basic",[
     File(".gitignore",
     "*.exe\n\

jscomp/bsb/bsb_templates.mli

@@ -1,3 +1,6 @@
+type  node = 
+  | Dir of string *  node list 
+  | File of string *  string
 
 
-val root : OCamlRes.Res.node list 
+val root : node list 

jscomp/bsb/bsb_theme_init.ml

@@ -64,7 +64,7 @@ let mkdir_or_not_if_exists dir =
      "%s expected to be added as dir but exist file is not a dir" dir
   | Non_exists -> Unix.mkdir dir 0o777
 
-let rec process_theme_aux env cwd (x : OCamlRes.Res.node) =
+let rec process_theme_aux env cwd (x : Bsb_templates.node) =
   match x with
   | File (name,content)  ->
     let new_file = cwd // name in 
@@ -76,10 +76,8 @@ let rec process_theme_aux env cwd (x : OCamlRes.Res.node) =
     List.iter (fun x -> process_theme_aux env new_cwd x ) nodes
 
 let list_themes () =
-  Format.fprintf Format.std_formatter "Available themes: @.";
-  Bsb_templates.root
-  |>
-  List.iter (fun (x : OCamlRes.Res.node)  ->
+  Format.fprintf Format.std_formatter "Available themes: @.";    
+  Ext_list.iter Bsb_templates.root (fun x  ->
       match  x with
       | Dir (x, _) ->
         Format.fprintf Format.std_formatter "%s@." x
@@ -88,7 +86,7 @@ let list_themes () =
     )
 
 (* @raise [Not_found] *)
-let process_themes env theme proj_dir (themes : OCamlRes.Res.node list ) =
+let process_themes env theme proj_dir (themes : Bsb_templates.node list ) =
   match Ext_list.find_first themes (fun x ->
       match  x with
       | Dir (dir, _) -> dir = theme

jscomp/bsb/oCamlRes.ml

@@ -76,7 +76,11 @@ function main() {
   // run git clean -dfx . first
   fs.writeFileSync(
     path.join(__dirname, "bsb_templates.ml"),
-    `let root = OCamlRes.Res.([
+    `
+type  node = 
+  | Dir of string *  node list 
+  | File of string *  string  
+let root = ([
 ${fs
   .readdirSync(templatesDir)
   .filter((x) => fs.statSync(path.join(templatesDir, x)).isDirectory())

jscomp/bsb/pack.js

@@ -14314,30 +14314,22 @@ let global_substitute text ~reg:expr repl_fun =
   in
   String.concat "" (List.rev (replace [] 0 false))
 
-end
-module OCamlRes
-= struct
-#1 "oCamlRes.ml"
-
-
-module Res = struct
-    type  node = 
-        | Dir of string *  node list 
-        | File of string *  string
-
-end    
-
-
-
 end
 module Bsb_templates : sig 
 #1 "bsb_templates.mli"
+type  node = 
+  | Dir of string *  node list 
+  | File of string *  string
 
 
-val root : OCamlRes.Res.node list 
+val root : node list 
 end = struct
 #1 "bsb_templates.ml"
-let root = OCamlRes.Res.([
+
+type  node = 
+  | Dir of string *  node list 
+  | File of string *  string  
+let root = ([
    Dir("basic",[
     File(".gitignore",
     "*.exe\n\
@@ -16322,7 +16314,7 @@ let mkdir_or_not_if_exists dir =
      "%s expected to be added as dir but exist file is not a dir" dir
   | Non_exists -> Unix.mkdir dir 0o777
 
-let rec process_theme_aux env cwd (x : OCamlRes.Res.node) =
+let rec process_theme_aux env cwd (x : Bsb_templates.node) =
   match x with
   | File (name,content)  ->
     let new_file = cwd // name in 
@@ -16334,10 +16326,8 @@ let rec process_theme_aux env cwd (x : OCamlRes.Res.node) =
     List.iter (fun x -> process_theme_aux env new_cwd x ) nodes
 
 let list_themes () =
-  Format.fprintf Format.std_formatter "Available themes: @.";
-  Bsb_templates.root
-  |>
-  List.iter (fun (x : OCamlRes.Res.node)  ->
+  Format.fprintf Format.std_formatter "Available themes: @.";    
+  Ext_list.iter Bsb_templates.root (fun x  ->
       match  x with
       | Dir (x, _) ->
         Format.fprintf Format.std_formatter "%s@." x
@@ -16346,7 +16336,7 @@ let list_themes () =
     )
 
 (* @raise [Not_found] *)
-let process_themes env theme proj_dir (themes : OCamlRes.Res.node list ) =
+let process_themes env theme proj_dir (themes : Bsb_templates.node list ) =
   match Ext_list.find_first themes (fun x ->
       match  x with
       | Dir (dir, _) -> dir = theme

lib/4.06.1/bsb.ml

@@ -64,7 +64,6 @@
 ../lib/4.06.1/bsb.ml: ./bsb/bsb_watcher_gen.mli
 ../lib/4.06.1/bsb.ml: ./bsb/bsb_world.ml
 ../lib/4.06.1/bsb.ml: ./bsb/bsb_world.mli
-../lib/4.06.1/bsb.ml: ./bsb/oCamlRes.ml
 ../lib/4.06.1/bsb.ml: ./common/bs_version.ml
 ../lib/4.06.1/bsb.ml: ./common/bs_version.mli
 ../lib/4.06.1/bsb.ml: ./ext/bsb_db.ml