From 9c3bfa972d666b5b8cd5eb7a978a264f27cf7292 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 20 Nov 2024 20:02:43 +0100
Subject: Avoid embedded Expr in most of test step parameters

---
 src/Test/Builtins.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Test/Builtins.hs')

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) )
-- 
cgit v1.2.3