rename parseLiteral to parseTerm

2026-01-15 15:54:16 +00:00 · 2026-01-15 15:54:16 +00:00 · b603d9edf9
commit b603d9edf9
parent e437fd82c4
1 changed files with 3 additions and 3 deletions
--- a/haskell-experiments/src/SimpleParser.hs
+++ b/haskell-experiments/src/SimpleParser.hs
@ -55,15 +55,15 @@ eval (UnaryExpr unaryOp a) = lookUpUnaryOp unaryOp (eval a)
 parseExpr :: Parser Expr
 parseExpr =
    makeExprParser
-        parseLiteral
+        parseTerm
        [ [InfixL (char '/' $> BinaryExpr Divide)]
        , [InfixL (char '*' $> BinaryExpr Multiply)]
        , [InfixL (char '+' $> BinaryExpr Add)]
        , [InfixL (char '-' $> BinaryExpr Subtract)]
        ]

-parseLiteral :: Parser Expr
-parseLiteral =
+parseTerm :: Parser Expr
+parseTerm =
    choice
        [ Literal <$> decimal
        , between (char '(') (char ')') parseExpr