Process variables and expression type

1 files changed, 7 insertions, 0 deletions

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