msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

syntax for inaccessible patterns in GF

Browse Source
This commit is contained in:
krasimir
2010-03-18 19:34:30 +00:00
parent d91999dec0
commit f870c4d80f
11 changed files with 38 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/GF/Grammar/Printer.hs
View File

@@ -208,6 +208,7 @@ 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)
ppPatt q d (PTilde t) = char '~' <> ppTerm q 6 t
ppValue :: TermPrintQual -> Int -> Val -> Doc
ppValue q d (VGen i x) = ppIdent x <> text "{-" <> int i <> text "-}" ---- latter part for debugging