From 726d160c8d79f148b5dc14e5616ec4302fe084a9 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 25 Sep 2009 08:53:27 +0000
Subject: bugfix: the identifiers in the output of l -table should not be
 qualified

---
 src/GF/Compile/GrammarToGFCC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Compile')

diff --git a/src/GF/Compile/GrammarToGFCC.hs b/src/GF/Compile/GrammarToGFCC.hs
index bd60e7bdb..b285faa81 100644
--- a/src/GF/Compile/GrammarToGFCC.hs
+++ b/src/GF/Compile/GrammarToGFCC.hs
@@ -230,7 +230,7 @@ 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 Qualified 0) $ 
+      C.FV $ map (kks . filter showable . render . ppTerm Unqualified 0) $ 
              errVal [] $ Look.allParamValues sgr typ
   showable c = not (isSpace c) ---- || (c == ' ')  -- to eliminate \n in records
   kks = C.K . C.KS
-- 
cgit v1.2.3