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

switched the upper and lower parts of lexc entries to their standard order

Browse Source
This commit is contained in:
aarne
2011-03-04 17:25:53 +00:00
parent 14f11bb2b9
commit d9b5d3ed4d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/compiler/GF/Command/Commands.hs
View File

@@ -1229,10 +1229,10 @@ infinity = 256
prLexcLexicon :: Morpho -> String
prLexcLexicon mo =
unlines $ "LEXICON" : [w ++ ":" ++ prLexc l p | (w,lps) <- morpho, (l,p) <- lps] ++ ["END"]
unlines $ "LEXICON" : [prLexc l p ++ ":" ++ w ++ " # ;" | (w,lps) <- morpho, (l,p) <- lps] ++ ["END"]
where
morpho = fullFormLexicon mo
prLexc l p = showCId l ++ mkTags (words p) ++ " # ;"
prLexc l p = showCId l ++ mkTags (words p)
mkTags p = case p of
"s":ws -> mkTags ws --- remove record field
ws -> concat $ "+" : intersperse "+" ws