From bf0a7bb68485c87737677e4bbb5278b24dcb24cc Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 27 Jul 2017 22:53:45 +0200
Subject: Add tuples (see #1)

---
 Sil/Syntax.icl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Sil/Syntax.icl')

diff --git a/Sil/Syntax.icl b/Sil/Syntax.icl
index 43d27fc..cc5c3ba 100644
--- a/Sil/Syntax.icl
+++ b/Sil/Syntax.icl
@@ -31,6 +31,8 @@ where
 	toString (App n args)           = n <+ "(" <+ printersperse ", " args <+ ")"
 	toString (BuiltinApp op e)      = op <+ "(" <+ e <+ ")"
 	toString (BuiltinApp2 e1 op e2) = "(" <+ e1 <+ ") " <+ op <+ " (" <+ e2 <+ ")"
+	toString (Tuple _ es)           = "(" <+ printersperse ", " es <+ ")"
+	toString (Field f e)            = e <+ "." <+ f
 
 instance toString Op1
 where
-- 
cgit v1.2.3