diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-15 20:38:39 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-24 21:43:09 +0100 |
| commit | 3640256e80ba1aa1c1e022a231234dee814ace58 (patch) | |
| tree | 4fa2fa9c97ceb54bcabd5136f47b70412ac0dbb4 /src/Test/Builtins.hs | |
| parent | 14efffc66cb60465c18c984311bde5a5502803db (diff) | |
Collect and evaluate global definitions together
Diffstat (limited to 'src/Test/Builtins.hs')
| -rw-r--r-- | src/Test/Builtins.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Test/Builtins.hs b/src/Test/Builtins.hs index 29e54af..bf22ff8 100644 --- a/src/Test/Builtins.hs +++ b/src/Test/Builtins.hs @@ -9,15 +9,15 @@ import Data.Text (Text) import Process (Process) import Test -builtins :: [ ( FqVarName, SomeVarValue ) ] -builtins = +builtins :: GlobalDefs +builtins = M.fromList [ fq "send" builtinSend , fq "flush" builtinFlush , fq "guard" builtinGuard , fq "wait" builtinWait ] where - fq name impl = ( GlobalVarName (ModuleName [ "$" ]) (VarName name), impl ) + fq name impl = (( ModuleName [ "$" ], VarName name ), impl ) getArg :: ExprType a => FunctionArguments SomeVarValue -> Maybe ArgumentKeyword -> a getArg args = fromMaybe (error "parameter mismatch") . getArgMb args |