From a4ded76aa3d8c55c81bb7d2ce70fd61951ddd565 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Fri, 26 Sep 2008 09:44:02 +0000
Subject: [PATCH] SRG category renaming: don't count the external cats when
 calculating indices.

---
 src/GF/Speech/SRG.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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