Stringification of a type object now appends ()

Author: quietfanatic

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