factored bash_script constructor

lib/bppsuite.ml

@@ -3,22 +3,10 @@ open Bistro.Std
 open Bistro.EDSL
 open Bistro_bioinfo.Std
 open File_formats
+open Utils
 
 let env = Env.env_bppsuite
 
-let assign k v =
-  seq ~sep:"=" [ string k ; v ]
-
-let bash_script args code =
-  let prelude =
-    args
-    |> List.map ~f:(fun (k, v) ->
-        assign k v
-      )
-    |> seq ~sep:"\n"
-  in
-  seq ~sep:"\n" [ prelude ; string code ]
-
 let conf_file_bppseqgen ~tree ~out ~nb_sites ~config =
   seq ~sep:"\n" (
     [

lib/diffsel.ml

@@ -2,20 +2,7 @@ open Core_kernel
 open Bistro.Std
 open Bistro.EDSL
 open File_formats
-
-let assign k v =
-  seq ~sep:"=" [ string k ; v ]
-
-let bash_script args code =
-  let prelude =
-    args
-    |> List.map ~f:(fun (k, v) ->
-        assign k v
-      )
-    |> seq ~sep:"\n"
-  in
-  seq ~sep:"\n" [ prelude ; string code ]
-
+open Utils
 
 let diffsel_add_iterations_script ~chainname ~ali ~tree ~seed =
   let vars = [

lib/testnh.ml

@@ -3,26 +3,10 @@ open Bistro.Std
 open Bistro.EDSL
 open Bistro_bioinfo.Std
 open File_formats
-
+open Utils
 
 let env = Env.env_bppsuite
 
-let assign k v =
-  seq ~sep:"=" [ string k ; v ]
-
-let bash_script args code =
-  let prelude =
-    args
-    |> List.map ~f:(fun (k, v) ->
-        assign k v
-      )
-    |> seq ~sep:"\n"
-  in
-  seq ~sep:"\n" [ prelude ; string code ]
-
-
-
-
 let bppml_config_pre_mapnh =
 [ string "
 # Sequences:

lib/utils.ml

+open Core_kernel
+open Bistro.Std
+open Bistro.EDSL
+open File_formats
+
+let assign k v =
+  seq ~sep:"=" [ string k ; v ]
+
+let bash_script args code =
+  let prelude =
+    args
+    |> List.map ~f:(fun (k, v) ->
+        assign k v
+      )
+    |> seq ~sep:"\n"
+  in
+  seq ~sep:"\n" [ prelude ; string code ]
+