Use "matching" as keyword for regex argument of "flush"

Changelog: Change "flush" command to take regex argument via "matching" keyword

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Test/Builtins.hs b/src/Test/Builtins.hs
index 6c6c2f0..9babb9e 100644
--- a/src/Test/Builtins.hs
+++ b/src/Test/Builtins.hs
@@ -37,11 +37,11 @@ builtinSend = SomeVarValue (FunctionArguments $ M.fromList atypes) $
 
 builtinFlush :: SomeVarValue
 builtinFlush = SomeVarValue (FunctionArguments $ M.fromList atypes) $
-    \_ args -> TestBlock [ Flush (getArg args (Just "from")) (getArgMb args Nothing) ]
+    \_ args -> TestBlock [ Flush (getArg args (Just "from")) (getArgMb args (Just "matching")) ]
   where
     atypes =
         [ ( Just "from", SomeArgumentType (ContextDefault @Process) )
-        , ( Nothing, SomeArgumentType (OptionalArgument @Regex) )
+        , ( Just "matching", SomeArgumentType (OptionalArgument @Regex) )
         ]
 
 builtinGuard :: SomeVarValue