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

Use parantheses for precedence in pgf-pretty lincats.

Browse Source
This commit is contained in:
bjorn
2008-09-30 12:02:58 +00:00
parent 14373feb3a
commit cec77015ad
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/Compile/PGFPretty.hs
View File

@@ -39,11 +39,11 @@ prCnc abstr name c = prAll prLinCat (lincats c) $$ prAll prLin (lins (expand c))
where
prLinCat :: CId -> Term -> Doc
prLinCat c t | isLiteralCat c = empty
| otherwise = text "lincat" <+> text (prCId c) <+> text "=" <+> pr t
| otherwise = text "lincat" <+> text (prCId c) <+> text "=" <+> pr 0 t
where
pr (R ts) = hsep (punctuate (text " *") (map pr ts))
pr (S []) = text "Str"
pr (C n) = text "Int_" <> text (show (n+1))
pr p (R ts) = prec p 1 (hsep (punctuate (text " *") (map (pr 1) ts)))
pr _ (S []) = text "Str"
pr _ (C n) = text "Int_" <> text (show (n+1))
prLin :: CId -> Term -> Doc
prLin f t = text "lin" <+> text (prCId f) <+> text "=" <+> pr 0 t