Update .WHAT output to match current spec.

::Int -> Int()

Author: coke

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("