From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 17 Dec 2006 21:25:40 +0000 (+0000)
Subject: Fix user domtool directory resolution
X-Git-Tag: release_2010-11-19~285
X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/3c855c4bab81d7d4adb54724f0e08be61a55241e

Fix user domtool directory resolution
---

diff --git a/src/main-client.sml b/src/main-client.sml
index c70dfb8..e017fc0 100644
--- a/src/main-client.sml
+++ b/src/main-client.sml
@@ -21,9 +21,11 @@
 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