diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2024-11-29 20:52:20 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2024-11-29 20:52:20 +0100 |
| commit | 56878ad193071539a1fd83298c4509fe21b880fd (patch) | |
| tree | 15e32532b7939cdb7b65d45b586bda5b82b82bdb /src/Test/Builtins.hs | |
| parent | 604d44dce0971443159e8fc35ee2b033ff958ac5 (diff) | |
Special "builtin" value for SourceLine
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 a36505a..a676a35 100644 --- a/src/Test/Builtins.hs +++ b/src/Test/Builtins.hs @@ -22,7 +22,7 @@ getArg args = fromMaybe (error "parameter mismatch") . getArgMb args getArgMb :: ExprType a => FunctionArguments SomeVarValue -> Maybe ArgumentKeyword -> Maybe a getArgMb (FunctionArguments args) kw = do - fromSomeVarValue (SourceLine "") (VarName "") =<< M.lookup kw args + fromSomeVarValue SourceLineBuiltin (VarName "") =<< M.lookup kw args getArgVars :: FunctionArguments SomeVarValue -> Maybe ArgumentKeyword -> [ (( VarName, [ Text ] ), SomeVarValue ) ] getArgVars (FunctionArguments args) kw = do |