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

the automatically generated printnames were just junks. Now we store printnames only if they are explicitly specified.

Browse Source
This commit is contained in:
krasimir
2010-06-18 10:19:05 +00:00
parent 58422b189a
commit d7d893d6b3
2 changed files with 9 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Macros.hs
View File

@@ -115,7 +115,7 @@ contextLength ty = case ty of
-- | Show the printname of function or category
showPrintName :: PGF -> Language -> CId -> String
showPrintName pgf lang id = lookMap "?" id $ printnames $ lookMap (error "no lang") lang $ concretes pgf
showPrintName pgf lang id = lookMap (showCId id) id $ printnames $ lookMap (error "no lang") lang $ concretes pgf
term0 :: CId -> Term
term0 = TM . showCId