From 56878ad193071539a1fd83298c4509fe21b880fd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Fri, 29 Nov 2024 20:52:20 +0100 Subject: Special "builtin" value for SourceLine --- src/Test/Builtins.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Test/Builtins.hs') 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 -- cgit v1.2.3