From f32b05c22bcab186bdaf8598c853e4d00734e686 Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Sat, 9 Nov 2013 02:06:23 -0800
Subject: [PATCH] display unit tuple with a comma

---
 Interp.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Interp.hs b/Interp.hs
index fd67031..a4189c6 100644
--- a/Interp.hs
+++ b/Interp.hs
@@ -68,6 +68,7 @@ instance Show Value where
 	show (IntV i) = show i
 	show (StrV s) = show s
 	show (BoolV b) = show b
+	show (TupleV []) = "(,)"
 	show (TupleV v) = "(" ++ intercalate "," (map show v) ++ ")"
 	show (ListV v) = show v
 	show (DictV d) = "<dict " ++ show d ++ ">"