Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source
Page
Library
Module
Module type
Parameter
Class
Class type
Source
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 []