1 files changed, 16 insertions, 0 deletions
diff --git a/src/SPL/Syntax.hs b/src/SPL/Syntax.hs
index f52b866..433b078 100644
--- a/src/SPL/Syntax.hs
+++ b/src/SPL/Syntax.hs
@@ -92,3 +92,19 @@ data Literal
   | LBool Bool
   | LNil
   deriving (Show)
+
+prio :: Op2 -> Int
+prio Add  =  6
+prio Sub  =  6
+prio Mul  =  5
+prio Div  =  5
+prio Mod  =  3
+prio Eq   =  8
+prio Lt   =  8
+prio Gt   =  8
+prio Le   =  8
+prio Ge   =  8
+prio Ne   =  8
+prio And  =  9
+prio Or   = 10
+prio Cons =  7