Stringification of a type object now appends ()

perl6 · Jul 26, 2012 · 543ec38 · 543ec38
1 parent 7e8013c
commit 543ec38
Showing 1 changed file with 1 addition 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