From be0e2017b46e981060b1f9f5fd764571ad2dc2a1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 14 May 2025 18:51:26 +0200 Subject: Make shell process name optional --- src/Run.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Run.hs') diff --git a/src/Run.hs b/src/Run.hs index b7093f4..bc64721 100644 --- a/src/Run.hs +++ b/src/Run.hs @@ -132,7 +132,9 @@ evalBlock (TestBlockStep prev step) = evalBlock prev >> case step of tool = fromMaybe (optDefaultTool opts) (lookup pname $ optProcTools opts) withProcess (Right node) pname Nothing tool $ evalBlock . inner - SpawnShell (TypedVarName (VarName tname)) node script inner -> do + SpawnShell mbname node script inner -> do + let tname | Just (TypedVarName (VarName name)) <- mbname = name + | otherwise = "shell" let pname = ProcName tname withShellProcess node pname script $ evalBlock . inner -- cgit v1.2.3