Deploy Debug for Wobi-seco-local

wobi-local-deploy-debug.ml

#use "/epidisco-shared/biokepi_machine.ml";;

let workflow =
   let open Biokepi in
   let open KEDSL in
   let program =
     let open Program in
     let cmd c =
       let shorten s =
         match String.sub s ~index:0 ~length:50 with
         | None -> s | Some s -> s ^ "…" in
       shf "echo \"## Secotrec Test of Biokepi machine: %s\""
         (Filename.quote (shorten c))
       && shf "%s || { echo 'Command failed' ; echo failure >> /tmp/failures ; }" c
     in
     chain [
cmd "sleep 3600";
     ]
     && sh "if [ -f /tmp/failures ] ; then exit 1 ; else exit 0 ; fi"
   in
   let name = "** DEBUG ME in 60 mins **" in
   let make = Machine.run_program ~name biokepi_machine program in
   (* let host = Machine.(as_host biokepi_machine) in *)
   workflow_node ~name without_product ~make

let () = Ketrew.Client.submit_workflow workflow