fun domtoolRoot () =
let
val uid = Posix.ProcEnv.getuid ()
- val home = Posix.SysDB.Passwd.home (Posix.SysDB.getpwuid uid)
+ val uname = Posix.SysDB.Passwd.name (Posix.SysDB.getpwuid uid)
+ val dname = OS.Path.joinDirFile {dir = Config.homeBase,
+ file = uname}
in
- OS.Path.joinDirFile {dir = home,
+ OS.Path.joinDirFile {dir = dname,
file = "domtool"}
end