From 0a49f4e86d61c14e2d457e03cb56c65c764d8e55 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 11 Sep 2022 20:28:58 +0100
Subject: Better job splitting constnt folding

---
 src/Micro/Parser.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Micro/Parser.hs')

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
-- 
cgit v1.2.3