diff options
| author | krasimir <krasimir@chalmers.se> | 2010-01-17 00:41:46 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-01-17 00:41:46 +0000 |
| commit | 9e3d4c74dc807cb26bb36303d2157c70c0668a8e (patch) | |
| tree | 151911fdce89b8d3576dcf9035994fa4cd62de65 /src/compiler/GF/Compile | |
| parent | 389b55103c6171b15370fcad9b1c71be4d4dba58 (diff) | |
prettier parameter names in PGF
Diffstat (limited to 'src/compiler/GF/Compile')
| -rw-r--r-- | src/compiler/GF/Compile/GrammarToPGF.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/compiler/GF/Compile/GrammarToPGF.hs b/src/compiler/GF/Compile/GrammarToPGF.hs index 0e58398d6..c015eff01 100644 --- a/src/compiler/GF/Compile/GrammarToPGF.hs +++ b/src/compiler/GF/Compile/GrammarToPGF.hs @@ -228,9 +228,8 @@ mkParamLincat sgr lang cat = errVal (C.R [C.S []]) $ do return $ C.S [p',v'] Sort s | s == cStr -> return $ C.S [] _ -> 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 - showable c = not (isSpace c) ---- || (c == ' ') -- to eliminate \n in records kks = C.K . C.KS -- return just one module per language |