Source file currently_running_user.ml

open! Core
open Async

let passwd () = Unix.Passwd.getbyuid_exn (Unix.geteuid ())

let name () =
  let%bind passwd = passwd () in
  return passwd.name
;;

module Blocking = struct
  let passwd () = Core_unix.Passwd.getbyuid_exn (Core_unix.geteuid ())
  let name () = (passwd ()).name
end