stringify types as (Int) instead of Int()

perl6 · Mar 3, 2013 · 5933753 · 5933753
1 parent 20b98d5
commit 5933753
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Pugs/src/Pugs/AST/Internals.hs b/Pugs/src/Pugs/AST/Internals.hs
@@ -1166,7 +1166,7 @@ instance Value VStr where
     fromVal (VList l)    = return . unwords =<< mapM fromVal l
     fromVal v@(PerlSV _) = fromVal' v
     fromVal VUndef       = return ""
-    fromVal (VType t)    = return (showType t ++ "()")
+    fromVal (VType t)    = return ("(" ++ showType t ++ ")")
     fromVal v = do
         vt  <- evalValType v
         case showType vt of

diff --git a/t/spectest.data b/t/spectest.data
@@ -18,6 +18,7 @@ integration/lexicals-and-attributes.t
 integration/method-calls-and-instantiation.t
 integration/no-indirect-new.t
 integration/packages.t
+integration/pair-in-array.t
 integration/passing-pair-class-to-sub.t
 integration/real-strings.t
 integration/role-composition-vs-attribute.t