diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2024-11-20 20:02:43 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-11-20 21:40:31 +0100 |
| commit | 9c3bfa972d666b5b8cd5eb7a978a264f27cf7292 (patch) | |
| tree | febad11563c50e98cbfa6beb668eccfa2d94d287 /src/Test/Builtins.hs | |
| parent | 1a8b4fbabdb1e3426f0da93817f93071b5985f2e (diff) | |
Avoid embedded Expr in most of test step parameters
Diffstat (limited to 'src/Test/Builtins.hs')
| -rw-r--r-- | src/Test/Builtins.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Test/Builtins.hs b/src/Test/Builtins.hs index 926bdbc..36f88e8 100644 --- a/src/Test/Builtins.hs +++ b/src/Test/Builtins.hs @@ -30,7 +30,7 @@ getArgVars (FunctionArguments args) kw = do builtinSend :: SomeVarValue builtinSend = SomeVarValue [] (FunctionArguments $ M.fromList atypes) $ - \_ args -> TestBlock [ Send (Pure (getArg args (Just "to"))) (Pure (getArg args Nothing)) ] + \_ args -> TestBlock [ Send (getArg args (Just "to")) (getArg args Nothing) ] where atypes = [ ( Just "to", SomeArgumentType (ContextDefault @Process) ) |