diff options
| author | krasimir <krasimir@chalmers.se> | 2009-09-25 08:53:27 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-09-25 08:53:27 +0000 |
| commit | 726d160c8d79f148b5dc14e5616ec4302fe084a9 (patch) | |
| tree | 9cbfc5eb51fbe8641302819564e1ed66608f0965 /src/GF/Compile | |
| parent | 0b1590536ae6fa1e03aee6fe0f9d46b42f71f00d (diff) | |
bugfix: the identifiers in the output of l -table should not be qualified
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/GrammarToGFCC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |