diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-05-09 21:00:33 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-05-09 21:32:38 +0200 |
| commit | 26fe6ead0205ea49bae55203197412816335cccc (patch) | |
| tree | d5db46f7146c9bb191a181a1cf6ce34b220951f0 | |
| parent | 5307cfd9de91533ec69e07cafa4d7c0d11481279 (diff) | |
| -rw-r--r-- | src/Script/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Script/Expr.hs b/src/Script/Expr.hs index aae898a..3e56f8e 100644 --- a/src/Script/Expr.hs +++ b/src/Script/Expr.hs @@ -179,7 +179,7 @@ eval = \case val <- eval valExpr withVar name val $ eval expr Variable _ name -> evalSomeExpr name =<< lookupVar name - DynVariable _ _ name -> fail $ "ambiguous type of ‘" <> unpackFqVarName name <> "’" + DynVariable _ _ name -> evalSomeExpr name =<< lookupVar name FunVariable _ _ name -> evalSomeExpr name =<< lookupVar name OptVariable _ name -> maybe (return Nothing) (fmap Just . evalSomeExpr name) =<< tryLookupVar name ArgsReq (FunctionArguments req) efun -> do |