diff options
| author | aarne <aarne@chalmers.se> | 2011-03-04 17:25:53 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2011-03-04 17:25:53 +0000 |
| commit | d9b5d3ed4d44705a4ea4be6fee2805c59ff0273e (patch) | |
| tree | d0ca291b2a66d5c4e31ef01b10756cbe3c82b2aa /src/compiler/GF/Command/Commands.hs | |
| parent | 14f11bb2b9d0e6b40d4dfe0f5d23a9a48d827b07 (diff) | |
switched the upper and lower parts of lexc entries to their standard order
Diffstat (limited to 'src/compiler/GF/Command/Commands.hs')
| -rw-r--r-- | src/compiler/GF/Command/Commands.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs index bb075798c..1e69c1df2 100644 --- a/src/compiler/GF/Command/Commands.hs +++ b/src/compiler/GF/Command/Commands.hs @@ -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 |