GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-09-19 16:56:02 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix pretty printing for dependent categories

Browse Source
This commit is contained in:
Krasimir Angelov
2026-02-13 15:24:10 +01:00
parent ba29bca730
commit a86485f873
1 changed files with 5 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/api/GF/Grammar/Printer.hs
+4 -8
View File
@@ -307,13 +307,9 @@ str s = doubleQuotes (pp (foldr showLitChar "" s))
| c > '\DEL' = showChar c | c > '\DEL' = showChar c
| otherwise = GHC.Show.showLitChar c | otherwise = GHC.Show.showLitChar c
ppDecl q (_,id,typ) ppDecl q (bt,id,typ)
| id == identW = ppTerm q 3 typ | id == identW = ppTerm q 5 typ
| otherwise = parens (id <+> ':' <+> ppTerm q 0 typ) | otherwise = parens (ppBind (bt,id) <+> ':' <+> ppTerm q 0 typ)
ppDDecl q (_,id,typ)
| id == identW = ppTerm q 6 typ
| otherwise = parens (id <+> ':' <+> ppTerm q 0 typ)
ppQIdent :: TermPrintQual -> QIdent -> Doc ppQIdent :: TermPrintQual -> QIdent -> Doc
ppQIdent q (m,id) = ppQIdent q (m,id) =
@@ -341,7 +337,7 @@ ppBind (Implicit,v) = braces v
ppAltern q (x,y) = ppTerm q 0 x <+> '/' <+> ppTerm q 0 y ppAltern q (x,y) = ppTerm q 0 x <+> '/' <+> ppTerm q 0 y
ppParams q ps = fsep (intersperse (pp '|') (map (ppParam q) ps)) ppParams q ps = fsep (intersperse (pp '|') (map (ppParam q) ps))
ppParam q (id,cxt) = id <+> hsep (map (ppDDecl q) cxt) ppParam q (id,cxt) = id <+> hsep (map (ppDecl q) cxt)
ppMarkupAttr q (id,e) = ppMarkupAttr q (id,e) =
id <> pp '=' <> ppTerm q 5 e id <> pp '=' <> ppTerm q 5 e