diff options
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 |