1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
open Core
open Bistro_internals
let mount_options ~host_paths ~container_paths =
List.map2_exn host_paths container_paths ~f:(fun h c ->
sprintf "-v %s:%s" h c
)
|> String.concat ~sep:" "
let image_url (image : Workflow.Docker_image.t) =
sprintf "%s%s/%s%s"
(Option.value_map ~default:"" ~f:(sprintf "%s/") image.registry)
image.account
image.name
(Option.value_map ~default:"" ~f:(sprintf ":%s") image.tag)
let chown_command ~path:dir ~uid =
sprintf
"docker run --log-driver=none --rm -v %s:/bistro -i busybox chown -R %d /bistro"
dir uid