Pugs: Typename -> Typename()

gistfile1.txt

diff --git a/Pugs/src/Pugs/AST/Internals.hs b/Pugs/src/Pugs/AST/Internals.hs
index cf984b1..afead2e 100644
--- 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