From 6c5eaccc5d79502a3ab67190a996025635f88564 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
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/Process.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/Process.hs')

diff --git a/src/Process.hs b/src/Process.hs
index 1389987..a575e76 100644
--- a/src/Process.hs
+++ b/src/Process.hs
@@ -3,7 +3,7 @@ module Process (
     ProcName(..),
     textProcName, unpackProcName,
     send,
-    outProc,
+    outProc, outProcName,
     lineReadingLoop,
     startProcessIOLoops,
     spawnOn,
@@ -88,7 +88,10 @@ send p line = liftIO $ do
     hFlush (procStdin p)
 
 outProc :: MonadOutput m => OutputType -> Process -> Text -> m ()
-outProc otype p line = outLine otype (Just $ textProcName $ procName p) line
+outProc otype p line = outProcName otype (procName p) line
+
+outProcName :: MonadOutput m => OutputType -> ProcName -> Text -> m ()
+outProcName otype pname line = outLine otype (Just $ textProcName pname) line
 
 lineReadingLoop :: MonadOutput m => Process -> Handle -> (Text -> m ()) -> m ()
 lineReadingLoop process h act =
-- 
cgit v1.2.3