From 57c27f313e9f28548aec19e58b1497b79d7d5335 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 28 Sep 2025 20:38:18 +0200
Subject: Additional instances of ExprType used by parsed commands

---
 src/Script/Shell.hs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'src/Script/Shell.hs')

diff --git a/src/Script/Shell.hs b/src/Script/Shell.hs
index 23c3891..cc8d06f 100644
--- a/src/Script/Shell.hs
+++ b/src/Script/Shell.hs
@@ -33,6 +33,7 @@ import Network.Ip
 import Output
 import Process
 import Run.Monad
+import Script.Expr.Class
 import Script.Var
 
 
@@ -54,6 +55,22 @@ data ShellCommand = ShellCommand
     , cmdSourceLine :: SourceLine
     }
 
+instance ExprType ShellScript where
+    textExprType _ = T.pack "ShellScript"
+    textExprValue _ = "<shell-script>"
+
+instance ExprType ShellStatement where
+    textExprType _ = T.pack "ShellStatement"
+    textExprValue _ = "<shell-statement>"
+
+instance ExprType ShellPipeline where
+    textExprType _ = T.pack "ShellPipeline"
+    textExprValue _ = "<shell-pipeline>"
+
+instance ExprType ShellCommand where
+    textExprType _ = T.pack "ShellCommand"
+    textExprValue _ = "<shell-command>"
+
 
 data ShellExecInfo = ShellExecInfo
     { seiNode :: Node
-- 
cgit v1.2.3