Fix: docker: fails with usermod error if run as root

src/Stack/Docker.hs

@@ -707,8 +707,8 @@ entrypoint config@Config{..} DockerEntrypoint{..} = do
  User.getUserEntryForName stackUserName
  -- Switch UID/GID if needed, and update user's home directory
  case deUidGid of
- Nothing -> updateRootUser envOverride homeDir
- Just (0,_) -> updateRootUser envOverride homeDir
+ Nothing -> return ()
+ Just (0,_) -> return ()
  Just (uid,gid) -> updateOrCreateStackUser envOverride estackUserEntry0 homeDir uid gid
  case estackUserEntry0 of
  Left _ -> return ()
@@ -744,13 +744,6 @@ entrypoint config@Config{..} DockerEntrypoint{..} = do
  copyFile srcIndex destIndex
  return True
  where
- updateRootUser envOverride homeDir = do
- -- Adjust the 'root' user's home directory to match HOME environment variable,
- -- when running as root or no UID/GID provided
- readProcessNull Nothing envOverride "usermod"
- ["-o"
- ,"--home",toFilePathNoTrailingSep homeDir
- ,rootUserName]
  updateOrCreateStackUser envOverride estackUserEntry homeDir uid gid = do
  case estackUserEntry of
  Left _ -> do
@@ -781,7 +774,6 @@ entrypoint config@Config{..} DockerEntrypoint{..} = do
  User.setGroupID gid
  User.setUserID uid
  stackUserName = "stack"::String
- rootUserName = "root"::String
 
 -- | MVar used to ensure the Docker entrypoint is performed exactly once
 entrypointMVar :: MVar Bool