X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/3c855c4bab81d7d4adb54724f0e08be61a55241e..e519d69680e425dc1d44db474dd5d9e7ea1cf379:/src/main-client.sml

diff --git a/src/main-client.sml b/src/main-client.sml
index e017fc0..29db1b4 100644
--- a/src/main-client.sml
+++ b/src/main-client.sml
@@ -16,14 +16,12 @@
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  *)
 
-(* Driver for server *)
+(* Driver for configuration requests *)
 
 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"}