pretty printing for VPatt

Author: krangelov

src/compiler/api/GF/Compile/Compute/Concrete2.hs

@@ -1062,7 +1062,7 @@ ppValue q d (VStr s) = ppTerm q d (K s)
 ppValue q d VEmpty = pp "[]"
 ppValue q d (VC v1 v2) = prec d 1 (hang (ppValue q 2 v1) 2 ("++" <+> ppValue q 1 v2))
 ppValue q d (VGlue v1 v2) = prec d 2 (ppValue q 3 v1 <+> '+'  <+> ppValue q 2 v2)
-ppValue q d (VPatt _ _ _) = pp "VPatt"
+ppValue q d (VPatt _ _ p) = prec d 4 ('#' <+> ppPatt q 2 p)
 ppValue q d (VPattType v) = prec d 4 ("pattern" <+> ppValue q 0 v)
 ppValue q d (VFV i vs) = prec d 4 ("variants" <+> pp i <+> braces (fsep (punctuate ';' (map (ppValue q 0) (unvariants vs)))))
 ppValue q d (VAlts e xs) = prec d 4 ("pre" <+> braces (ppValue q 0 e <> ';' <+> fsep (punctuate ';' (map (ppAltern q) xs))))