diff options
Diffstat (limited to 'src/Test')
| -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 |