Switch to using system database to find user home directories

[hcoop/domtool2.git] / src / main-client.sml

diff --git a/src/main-client.sml b/src/main-client.sml
index 57500c5..29db1b4 100644 (file)
--- a/src/main-client.sml
+++ b/src/main-client.sml
@@ -21,9 +21,7 @@
 fun domtoolRoot () =
     let
        val uid = Posix.ProcEnv.getuid ()
-       val uname = Posix.SysDB.Passwd.name (Posix.SysDB.getpwuid uid)
-       val dname = OS.Path.joinDirFile {dir = Config.homeBase,
-                                        file = uname}
+       val dname = Posix.SysDB.Passwd.home (Posix.SysDB.getpwuid uid)
     in
        OS.Path.joinDirFile {dir = dname,
                             file = "domtool"}