diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-09-13 21:35:02 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-09-13 23:39:16 +0200 |
| commit | 8e3d03e55793b49dc6844b23877c84d111e8d7d1 (patch) | |
| tree | a9f44351019a3b3016259d117d6c906f66cbb623 /src/Parser | |
| parent | 866d539bb9e6b9cf1676bff2e592e73a94d6f572 (diff) | |
Diffstat (limited to 'src/Parser')
| -rw-r--r-- | src/Parser/Core.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Parser/Core.hs b/src/Parser/Core.hs index 132dbc8..f44e721 100644 --- a/src/Parser/Core.hs +++ b/src/Parser/Core.hs @@ -201,7 +201,8 @@ unifyExpr off pa expr = if SomeExpr context <- gets testContext context' <- unifyExpr off atype context return $ Just ( kw, SomeExpr context' ) - return (FunctionEval $ ArgsApp (FunctionArguments $ M.fromAscList defaults) expr) + sline <- getSourceLine + return (FunctionEval sline $ ArgsApp (FunctionArguments $ M.fromAscList defaults) expr) | Just (Refl :: DynamicType :~: b) <- eqT , Undefined msg <- expr |