1 files changed, 1 insertions, 1 deletions
diff --git a/fsmgr.hs b/fsmgr.hs
index 3a59a53..ca80f8a 100644
--- a/fsmgr.hs
+++ b/fsmgr.hs
@@ -122,7 +122,7 @@ absPath f = do
 getHomeDir :: Action FilePath
 getHomeDir = do
-  Stdout homeDir <- cmd ["sh", "-c", "getent passwd \"$SUDO_USER\"|(IFS=: read _ _ _ _ _ d _; printf %s \"$d\")"]
+  Stdout homeDir <- cmd "sh -c" ["if [ \"$SUDO_USER\" ]; then getent passwd \"$SUDO_USER\" | cut -d: -f6; else printf \"%s\n\" \"$HOME\"; fi"]
  return homeDir
 buildInitialImage :: DiskImageConfig -> FilePath -> FilePath -> Action ()

diff --git a/fsmgr.hs b/fsmgr.hs index 3a59a53..ca80f8a 100644 --- a/fsmgr.hs +++ b/fsmgr.hs
@@ -122,7 +122,7 @@ absPath f = do
122		122
123	getHomeDir :: Action FilePath	123	getHomeDir :: Action FilePath
124	getHomeDir = do	124	getHomeDir = do
125	Stdout homeDir <- cmd ["sh", "-c", "getent passwd \"$SUDO_USER\"\|(IFS=: read _ _ _ _ _ d _; printf %s \"$d\")"]	125	Stdout homeDir <- cmd "sh -c" ["if [ \"$SUDO_USER\" ]; then getent passwd \"$SUDO_USER\" \| cut -d: -f6; else printf \"%s\n\" \"$HOME\"; fi"]
126	return homeDir	126	return homeDir
127		127
128	buildInitialImage :: DiskImageConfig -> FilePath -> FilePath -> Action ()	128	buildInitialImage :: DiskImageConfig -> FilePath -> FilePath -> Action ()