diff options
Diffstat (limited to 'src/Process.hs')
| -rw-r--r-- | src/Process.hs | 7 |
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 |