From 352cd39ec11311ff37525bdc52f0c0b0439ac3d7 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 14 Feb 2018 12:57:08 +0100
Subject: Add local variables to pretty-printer; respect infix priority

---
 src/SPL/Syntax.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'src/SPL/Syntax.hs')

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