package obuilder

  1. Overview
  2. Docs

Source file user_temp.ml

1
2
3
4
5
6
7
8
open Lwt.Infix

let fetch ~log:_ ~rootfs base =
  let base = Filename.concat "/Users" base in
  Macos.copy_template ~base ~local:rootfs >>= fun _ ->
  Os.sudo [ "chown"; "-R"; ":1000"; rootfs ] >>= fun () ->
  Os.sudo [ "chmod"; "-R"; "g+w"; rootfs ] >>= fun () ->
  Lwt.return []
OCaml

Innovation. Community. Security.