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

Prelude.CAPIT is now a built-in primitive. It still generates &| in the Haskell runtime but will be intepreted in the C runtime

Browse Source
This commit is contained in:
kr.angelov
2014-10-09 19:34:12 +00:00
parent 57f7b61c6b
commit 4efb2d5a22
19 changed files with 48 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/runtime/haskell/PGF/Printer.hs
View File

@@ -94,6 +94,7 @@ ppSymbol (SymKS t) = doubleQuotes (text t)
ppSymbol SymNE = text "nonExist"
ppSymbol SymBIND = text "BIND"
ppSymbol SymSOFT_BIND = text "SOFT_BIND"
ppSymbol SymCAPIT = text "CAPIT"
ppSymbol (SymKP syms alts) = text "pre" <+> braces (hsep (punctuate semi (hsep (map ppSymbol syms) : map ppAlt alts)))
ppAlt (syms,ps) = hsep (map ppSymbol syms) <+> char '/' <+> hsep (map (doubleQuotes . text) ps)