diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-01-26 22:31:20 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-01-28 21:40:27 +0100 |
| commit | 9251a72e7876b61ede972136570e2b81c6a8d767 (patch) | |
| tree | 16bff970448ef8a172b82239fd4b078fa8f80ef5 /src/Parser/Statement.hs | |
| parent | 340d408024980bddac83971dbef7d6a17c407382 (diff) | |
Do not accept plain variable as the last keywordless parameter
Diffstat (limited to 'src/Parser/Statement.hs')
| -rw-r--r-- | src/Parser/Statement.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Parser/Statement.hs b/src/Parser/Statement.hs index 4bed1ef..7765b12 100644 --- a/src/Parser/Statement.hs +++ b/src/Parser/Statement.hs @@ -129,7 +129,7 @@ instance ExprType a => ParamType (TypedVarName a) where instance ExprType a => ParamType (Expr a) where parseParam _ = do off <- stateOffset <$> getParserState - SomeExpr e <- literal <|> variable <|> between (symbol "(") (symbol ")") someExpr + SomeExpr e <- literal <|> between (symbol "(") (symbol ")") someExpr unifyExpr off Proxy e showParamType _ = "<" ++ T.unpack (textExprType @a Proxy) ++ ">" |