display unit tuple with a comma
This commit is contained in:
parent
b1a465f0e9
commit
f32b05c22b
|
@ -68,6 +68,7 @@ instance Show Value where
|
||||||
show (IntV i) = show i
|
show (IntV i) = show i
|
||||||
show (StrV s) = show s
|
show (StrV s) = show s
|
||||||
show (BoolV b) = show b
|
show (BoolV b) = show b
|
||||||
|
show (TupleV []) = "(,)"
|
||||||
show (TupleV v) = "(" ++ intercalate "," (map show v) ++ ")"
|
show (TupleV v) = "(" ++ intercalate "," (map show v) ++ ")"
|
||||||
show (ListV v) = show v
|
show (ListV v) = show v
|
||||||
show (DictV d) = "<dict " ++ show d ++ ">"
|
show (DictV d) = "<dict " ++ show d ++ ">"
|
||||||
|
|
Loading…
Reference in New Issue