From 2143eb381fc28e2d676a9c9a433426b1b2dbf737 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 7 Oct 2022 11:09:44 +0200
Subject: Process variables and expression type

---
 src/Process.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/Process.hs')

diff --git a/src/Process.hs b/src/Process.hs
index bb33953..04c5076 100644
--- a/src/Process.hs
+++ b/src/Process.hs
@@ -21,6 +21,7 @@ import System.Posix.Signals
 import System.Process
 
 import Output
+import Test
 
 data Process = Process
     { procName :: ProcName
@@ -33,6 +34,12 @@ data Process = Process
 instance Eq Process where
     (==) = (==) `on` procStdin
 
+instance ExprType Process where
+    textExprType _ = T.pack "proc"
+    textExprValue n = T.pack "p:" <> textProcName (procName n)
+    emptyVarValue = Process (ProcName T.empty) undefined undefined undefined undefined
+
+
 data ProcName = ProcName Text
               | ProcNameTcpdump
               | ProcNameGDB
-- 
cgit v1.2.3