From 61867b2b72201b8298490828ec05a71e07950473 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sun, 17 Jan 2010 00:41:46 +0000
Subject: [PATCH] prettier parameter names in PGF

---
 src/compiler/GF/Compile/GrammarToPGF.hs | 3 +--
 1 file changed, 1 insertion(+), 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