diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-09 21:59:12 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-02-11 20:49:15 +0100 |
| commit | d67825ea3f441523e2814b831d397d95c0dc46a4 (patch) | |
| tree | 0224df35bdfa6acaca2587b86e3921bf60ffccf4 /src/Parser/Expr.hs | |
| parent | 7cebff0d30b628e4a7d32feff83a767c126e32e7 (diff) | |
Diffstat (limited to 'src/Parser/Expr.hs')
| -rw-r--r-- | src/Parser/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Parser/Expr.hs b/src/Parser/Expr.hs index 41790bb..d59e0b2 100644 --- a/src/Parser/Expr.hs +++ b/src/Parser/Expr.hs @@ -80,7 +80,7 @@ addVarName off (TypedVarName name) = do Just _ -> registerParseError $ FancyError off $ S.singleton $ ErrorFail $ T.unpack $ T.pack "variable '" <> textVarName name <> T.pack "' already exists" Nothing -> return () - modify $ \s -> s { testVars = ( name, ExprTypePrim @a Proxy ) : testVars s } + modify $ \s -> s { testVars = ( name, ( LocalVarName name, ExprTypePrim @a Proxy )) : testVars s } someExpansion :: TestParser SomeExpr someExpansion = do |