display unit tuple with a comma

2013-11-09 02:06:23 -08:00 · 2013-11-09 02:06:23 -08:00 · f32b05c22b
parent b1a465f0e9
commit f32b05c22b
1 changed files with 1 additions and 0 deletions
--- 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 ++ ">"