Stack change to reflect SUDO passing.

src/Argo/Stack.hs

@@ -24,6 +24,7 @@ import           Control.Monad                 as CM
 import           Data.Maybe
 import           Control.Foldl                 as Fold
 import           Text.Show.Pretty
+import           System.Environment
 
 cleanLeftovers :: WorkingDirectory -> Shell ()
 cleanLeftovers (WorkingDirectory wd) = do
@@ -52,11 +53,12 @@ prepareDaemon out stdErr test = do
   cp confPath confPath'
   printInfo $ format ("Copied the configurator to " % fp) confPath'
   printInfo $ format "Trying to sudo chown and chmod argo_nodeos_config"
-  verboseShell (format ("sudo chown root:root " % fp) confPath') empty >>= \case
+  sudoPath <- liftIO $ pack <$> getEnv "SUDO"
+  verboseShell (format (s%" chown root:root " % fp) sudoPath confPath') empty >>= \case
     ExitSuccess -> printInfo "Chowned argo_nodeos_config to root:root."
     ExitFailure n ->
       die ("Failed to set argo_nodeos_config permissions " <> repr n)
-  verboseShell (format ("sudo chmod u+sw " % fp) confPath') empty >>= \case
+  verboseShell (format (s%" chmod u+sw " % fp) sudoPath confPath') empty >>= \case
     ExitSuccess   -> printInfo "Set the suid bit."
     ExitFailure n -> die ("Setting suid bit failed with exit code " <> repr n)
   cleanContainers confPath' 1 2