fdilke/pyrites
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rename parseLiteral to parseTerm

Browse Source
This commit is contained in:
Patrick Aldis 2026-01-15 15:54:16 +00:00
parent e437fd82c4
commit b603d9edf9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
haskell-experiments/src/SimpleParser.hs
View File

@ -55,15 +55,15 @@ eval (UnaryExpr unaryOp a) = lookUpUnaryOp unaryOp (eval a)
parseExpr :: Parser Expr parseExpr :: Parser Expr
parseExpr = parseExpr =
makeExprParser makeExprParser
parseLiteral parseTerm
[ [InfixL (char '/' $> BinaryExpr Divide)] [ [InfixL (char '/' $> BinaryExpr Divide)]
, [InfixL (char '*' $> BinaryExpr Multiply)] , [InfixL (char '*' $> BinaryExpr Multiply)]
, [InfixL (char '+' $> BinaryExpr Add)] , [InfixL (char '+' $> BinaryExpr Add)]
, [InfixL (char '-' $> BinaryExpr Subtract)] , [InfixL (char '-' $> BinaryExpr Subtract)]
] ]
parseLiteral :: Parser Expr parseTerm :: Parser Expr
parseLiteral = parseTerm =
choice choice
[ Literal <$> decimal [ Literal <$> decimal
, between (char '(') (char ')') parseExpr , between (char '(') (char ')') parseExpr