Permalink
Browse files

Update .WHAT output to match current spec.

::Int -> Int()
  • Loading branch information...
1 parent 28fc42f commit 5b232c1a38311fb32edfb20ad042ff2ee3192646 @coke coke committed Jul 19, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Pugs/src/Pugs/Pretty.hs
View
2 Pugs/src/Pugs/Pretty.hs
@@ -219,7 +219,7 @@ instance Pretty Val where
-- return $ pretty val
format (VRule _) = text $ "{regex}"
format (VSubst _) = text $ "{subst}"
- format (VType t) = text $ "::" ++ showType t
+ format (VType t) = text $ showType t ++ "()"
format (VObject o) = text $ "{obj:" ++ showType (objType o) ++ "}"
format (VMatch m) = cat
[ text "Match.new("

0 comments on commit 5b232c1

Please sign in to comment.