From 17fb83b2289f527d4242a7b66df963b56f850f2e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 31 May 2025 16:54:42 +0200
Subject: Print source line of shell command failure

---
 src/Parser/Shell.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Parser')

diff --git a/src/Parser/Shell.hs b/src/Parser/Shell.hs
index 09f953c..89595e8 100644
--- a/src/Parser/Shell.hs
+++ b/src/Parser/Shell.hs
@@ -67,11 +67,13 @@ parseArguments = foldr (liftA2 (:)) (Pure []) <$> many parseArgument
 
 shellStatement :: TestParser (Expr [ ShellStatement ])
 shellStatement = label "shell statement" $ do
+    line <- getSourceLine
     command <- parseArgument
     args <- parseArguments
     return $ fmap (: []) $ ShellStatement
         <$> command
         <*> args
+        <*> pure line
 
 shellScript :: TestParser (Expr ShellScript)
 shellScript = do
-- 
cgit v1.2.3