From 6c5eaccc5d79502a3ab67190a996025635f88564 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 6 Dec 2025 11:16:46 +0100 Subject: Show command and arguments for spawned processes in output Changelog: Show command and arguments for spawned processes in verbose output --- src/Run.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Run.hs') diff --git a/src/Run.hs b/src/Run.hs index 1a1dea0..436ce6b 100644 --- a/src/Run.hs +++ b/src/Run.hs @@ -188,9 +188,10 @@ runStep = \case opts <- asks $ teOptions . fst let pname = ProcName tname tool = fromMaybe (optDefaultTool opts) (lookup pname $ optProcTools opts) - cmd = unwords $ tool : map (T.unpack . escape) args + cmd = T.unwords $ T.pack tool : map escape args escape = ("'" <>) . (<> "'") . T.replace "'" "'\\''" - withProcess (Right node) pname Nothing cmd $ runStep . inner + outProcName OutputChildExec pname cmd + withProcess (Right node) pname Nothing (T.unpack cmd) $ runStep . inner SpawnShell mbname node script inner -> do let tname | Just (TypedVarName (VarName name)) <- mbname = name -- cgit v1.2.3