From 61304d829c2cd4d6edf3c015adae24d0574ce7a5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 28 Sep 2024 21:04:16 +0200 Subject: Use "matching" as keyword for regex argument of "flush" Changelog: Change "flush" command to take regex argument via "matching" keyword --- src/Test/Builtins.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 -- cgit v1.2.3