package bistro

  1. Overview
  2. Docs

Source file docker.ml

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