diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2024-09-27 20:30:25 +0200 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-09-27 21:03:29 +0200 |
commit | afd550dc8245e61ab6b148c72cdf133e6b7836d1 (patch) | |
tree | 9ceff9a181af372a35c9b906cacca11c7c26b18b /src/Test/Builtins.hs | |
parent | 213e3523aead4c18b65ac85886203d2508b9b27e (diff) |
Default and context-provided values for function arguments
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 b768bb9..3f42335 100644 --- a/src/Test/Builtins.hs +++ b/src/Test/Builtins.hs @@ -20,7 +20,7 @@ getArg (FunctionArguments args) kw = _ -> error "parameter mismatch" builtinGuard :: SomeVarValue -builtinGuard = SomeVarValue (FunctionArguments $ M.singleton Nothing (ExprTypePrim (Proxy @Bool))) $ +builtinGuard = SomeVarValue (FunctionArguments $ M.singleton Nothing (SomeArgumentType (NoDefault @Bool))) $ \sline args -> TestBlock [ Guard sline (getArg args Nothing) ] builtinWait :: SomeVarValue |