GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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 446aa1b5db
commit 203430ae6d
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