stringify types as (Int) instead of Int()

Author: coke

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

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