Commits

Anonymous committed 78f674c Draft

.

Comments (0)

Files changed (1)

src/pre_template.ml

                          but expected only one directory"
                         (Array.length arr)
 
-    let local_tar_archive ~keys ~funcname ~path =
+    let local_tar_archive ~tar_extr_arg ~funcname ~path =
         (fun ~dest ->
            let infn = path in
            try
                  Reb_sys.with_chdir dest
                    (fun () ->
                       if 0 = Reb_sys.run ~show:true
-                        [| "tar" ; keys ; infn_abs |]
+                        [| "tar" ; tar_extr_arg ; infn_abs |]
                       then ()
-                      else failwith "error from 'tar %s'" keys
+                      else failwith "error from 'tar %s'" tar_extr_arg
                    )
                in
                get_one_dir dest
         )
 
     let do_local_tar_gz ~funcname = local_tar_archive
-      ~keys:"-xzf"
+      ~tar_extr_arg:"-xzf"
       ~funcname
 
     let local_tar_gz infn =
       }
 
     let do_local_tar_bz2 ~funcname = local_tar_archive
-      ~keys:"-xjf"
+      ~tar_extr_arg:"-xjf"
       ~funcname
 
     let local_tar_bz2 infn =