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

prettier parameter names in PGF

Browse Source
This commit is contained in:
krasimir
2010-01-17 00:41:46 +00:00
parent 190cd6930b
commit 61867b2b72
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Compile/GrammarToPGF.hs
View File

@@ -228,9 +228,8 @@ mkParamLincat sgr lang cat = errVal (C.R [C.S []]) $ do
return $ C.S [p',v'] return $ C.S [p',v']
Sort s | s == cStr -> return $ C.S [] Sort s | s == cStr -> return $ C.S []
_ -> return $ _ -> return $
C.FV $ map (kks . filter showable . render . ppTerm Unqualified 0) $ C.FV $ map (kks . renderStyle style{mode=OneLineMode} . ppTerm Unqualified 6) $
errVal [] $ Look.allParamValues sgr typ errVal [] $ Look.allParamValues sgr typ
showable c = not (isSpace c) ---- || (c == ' ') -- to eliminate \n in records
kks = C.K . C.KS kks = C.K . C.KS
-- return just one module per language -- return just one module per language