diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-26 09:44:02 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-26 09:44:02 +0000 |
| commit | a4ded76aa3d8c55c81bb7d2ce70fd61951ddd565 (patch) | |
| tree | 3d42edac4a26716dca8a0d8cc1fb77f89b8423b2 /src | |
| parent | d1a2cdb9484988baa02c1cae0cc8b8de49f4479e (diff) | |
SRG category renaming: don't count the external cats when calculating indices.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/SRG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs index 128b459dc..08f732055 100644 --- a/src/GF/Speech/SRG.hs +++ b/src/GF/Speech/SRG.hs @@ -124,7 +124,7 @@ renameCats prefix cfg = mapCFGCats renameCat cfg where renameCat c | isExternal c = c ++ "_cat" | otherwise = Map.findWithDefault (error ("renameCats: " ++ c)) c names isExternal c = c `Set.member` cfgExternalCats cfg - catsByPrefix = buildMultiMap [(takeWhile (/='_') cat, cat) | cat <- allCats cfg] + catsByPrefix = buildMultiMap [(takeWhile (/='_') cat, cat) | cat <- allCats cfg, not (isExternal cat)] names = Map.fromList [(c,pref++"_"++show i) | (pref,cs) <- catsByPrefix, (c,i) <- zip cs [1..]] getSpeechLanguage :: PGF -> CId -> Maybe String |