diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-11 20:28:58 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-11 20:28:58 +0100 |
| commit | 0a49f4e86d61c14e2d457e03cb56c65c764d8e55 (patch) | |
| tree | bafcbdb417e8141e1a4926d64a9f02c9e4b6f517 /src/Micro/Parser.hs | |
| parent | b8f7dd3220564fa641f4f0b23adadce7b2543436 (diff) | |
| download | micro-lang-hs-0a49f4e86d61c14e2d457e03cb56c65c764d8e55.tar.gz micro-lang-hs-0a49f4e86d61c14e2d457e03cb56c65c764d8e55.zip | |
Better job splitting constnt folding
Diffstat (limited to 'src/Micro/Parser.hs')
| -rw-r--r-- | src/Micro/Parser.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Micro/Parser.hs b/src/Micro/Parser.hs index 3e2b0a3..89f5bc0 100644 --- a/src/Micro/Parser.hs +++ b/src/Micro/Parser.hs @@ -26,13 +26,13 @@ binary s f assoc = opTable :: [[E.Operator String () Identity Expr]] opTable = - [ [binary "=" Assign E.AssocLeft], - [ binary "*" Mul E.AssocLeft, + [ [ binary "*" Mul E.AssocLeft, binary "/" Div E.AssocLeft ], [ binary "+" Plus E.AssocLeft, binary "-" Minus E.AssocLeft - ] + ], + [binary "=" Assign E.AssocLeft] ] expr :: Parser Expr |