diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-04-05 10:31:55 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-04-05 12:27:55 +0200 |
| commit | ad00b4534582c5ce94243f7dda3b76d7c0bba021 (patch) | |
| tree | 8045950f66d6ccf709c7d44ed33ec135e9f23425 /src/Parser/Statement.hs | |
| parent | 8b61b194f2f4759689844ab57f2ca7a4b912c468 (diff) | |
Parse data constructors
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 0e6314b..7876542 100644 --- a/src/Parser/Statement.hs +++ b/src/Parser/Statement.hs @@ -309,7 +309,7 @@ instance ExprType a => ParamType (ExprParam a) where type ParamRep (ExprParam a) = Expr a parseParam _ = do off <- stateOffset <$> getParserState - SomeExpr e <- literal <|> variable <|> between (symbol "(") (symbol ")") someExpr + SomeExpr e <- literal <|> variable <|> constructor <|> between (symbol "(") (symbol ")") someExpr unifyExpr off Proxy e showParamType _ = "<" ++ T.unpack (textExprType @a Proxy) ++ ">" paramExpr = fmap ExprParam |