Source file `currently_running_user.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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