diff options
| author | krasimir <krasimir@chalmers.se> | 2010-02-22 20:02:53 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-02-22 20:02:53 +0000 |
| commit | d2988814a81a1f2100454fe0bccf5857feee4a00 (patch) | |
| tree | ce2cd6d65d759f30cdab5f1c079c2ab5fc7eb48a /src | |
| parent | 09da1013f9a14dfa672c8e1adea269fc337aa57c (diff) | |
add pretty printing rule for implicit patterns
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Grammar/Printer.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/compiler/GF/Grammar/Printer.hs b/src/compiler/GF/Grammar/Printer.hs index 4ead4e0bb..8c461bdcb 100644 --- a/src/compiler/GF/Grammar/Printer.hs +++ b/src/compiler/GF/Grammar/Printer.hs @@ -206,6 +206,7 @@ ppPatt q d (PInt n) = integer n ppPatt q d (PFloat f) = double f
ppPatt q d (PString s) = str s
ppPatt q d (PR xs) = braces (hsep (punctuate semi [ppLabel l <+> equals <+> ppPatt q 0 e | (l,e) <- xs]))
+ppPatt q d (PImplArg p) = braces (ppPatt q 0 p)
ppValue :: TermPrintQual -> Int -> Val -> Doc
ppValue q d (VGen i x) = ppIdent x <> text "{-" <> int i <> text "-}" ---- latter part for debugging
|