gistfile1.txt

let exec
    :  log:Nixy_log.t -> ?working_dir:String.t -> ('a, unit, string, 'ret) format4  ->
       (Unit.t, Exn.t) Deferred.Result.t =
  fun ~log ?working_dir shcmd ->
    Async_shell.sh_lines_stream ?working_dir shcmd
    >>= fun stream ->
    Monitor.try_with (fun () -> log_stream log stream)

-----------------

 System.exec ~working_dir:repo.disk_location ~log "git config --add remote.origin.fetch %s" remote
 
 
 ------------------
 
 p4o -w -40 -I lib -o lib/repo.cmo lib/repo.ml
File "lib/repo.ml", line 24, characters 2-13:
Error: This function has type
         log:Nixy_log.t ->
         ?working_dir:Core.Std.String.t ->
         (Core.Std.String.t Async.Std.Stream.t Async_kernel.Deferred.t,
          unit, string, string Async.Std.Stream.t)
         format4 ->
         (Core.Std.Unit.t, Core.Std.Exn.t) Async.Std.Deferred.Result.t
       It is applied to too many arguments; maybe you forgot a `;'.