From 7cceec08026535852091aa3db2ce73da32c06e17 Mon Sep 17 00:00:00 2001 From: bringert Date: Wed, 20 Dec 2006 22:13:56 +0000 Subject: Fixed (final?) two bugs in the SISR generation. --- src/GF/Speech/SRG.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Speech/SRG.hs') diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs index 64dbbea37..01ccf04be 100644 --- a/src/GF/Speech/SRG.hs +++ b/src/GF/Speech/SRG.hs @@ -133,7 +133,7 @@ cfgRulesToSRGRule names probs rs@(r:_) = SRGRule cat origCat rhs = SRGAlt (ruleProb probs r) n (mkSRGSymbols 0 ss) where mkSRGSymbols _ [] = [] - mkSRGSymbols i (Cat c:ss) = Cat (renameCat c,0) : mkSRGSymbols (i+1) ss + mkSRGSymbols i (Cat c:ss) = Cat (renameCat c,i) : mkSRGSymbols (i+1) ss mkSRGSymbols i (Tok t:ss) = Tok t : mkSRGSymbols i ss renameCat = lookupFM_ names -- cgit v1.2.3