Fix user domtool directory resolution

diff --git a/src/main-client.sml b/src/main-client.sml
index c70dfb8..e017fc0 100644 (file)
--- a/src/main-client.sml
+++ b/src/main-client.sml
@@ -21,9 +21,11 @@
 fun domtoolRoot () =
     let
        val uid = Posix.ProcEnv.getuid ()
 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
     in

-       OS.Path.joinDirFile {dir = home,
+       OS.Path.joinDirFile {dir = dname,

                             file = "domtool"}
     end
 
                             file = "domtool"}
     end