Additional instances of ExprType used by parsed commands

1 files changed, 17 insertions, 0 deletions

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