Custom signals to kill spawned processHEADmaster

Changelog: Added `killwith` clause to set a signal used to terminate `spawn`ed process.

1 files changed, 10 insertions, 7 deletions

diff --git a/src/Test/Builtins.hs b/src/Test/Builtins.hs
index 5f9f890..3dc6554 100644
--- a/src/Test/Builtins.hs
+++ b/src/Test/Builtins.hs
@@ -9,17 +9,20 @@ import Data.Scientific
 import Data.Text (Text)
 
 import Process
+import Process.Signal
 import Script.Expr
 import Test
 
 builtins :: GlobalDefs
-builtins = M.fromList
-    [ fq "send" builtinSend
-    , fq "flush" builtinFlush
-    , fq "ignore" builtinIgnore
-    , fq "guard" builtinGuard
-    , fq "multiply_timeout" builtinMultiplyTimeout
-    , fq "wait" builtinWait
+builtins = M.fromList $ concat
+    [ [ fq "send" builtinSend
+      , fq "flush" builtinFlush
+      , fq "ignore" builtinIgnore
+      , fq "guard" builtinGuard
+      , fq "multiply_timeout" builtinMultiplyTimeout
+      , fq "wait" builtinWait
+      ]
+    , map (uncurry fq) signalBuiltins
     ]
   where
     fq name impl = (( ModuleName [ "$" ], VarName name ), impl )