Browse files

Stringification of a type object now appends ()

  • Loading branch information...
1 parent 7e8013c commit 543ec380372421990cb8b9ff2b0c66657ffb6758 @quietfanatic quietfanatic committed Jul 25, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Pugs/src/Pugs/AST/Internals.hs
View
2 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

0 comments on commit 543ec38

Please sign in to comment.