diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-20 22:13:56 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-20 22:13:56 +0000 |
| commit | 7cceec08026535852091aa3db2ce73da32c06e17 (patch) | |
| tree | 1334fa938a71c6e24da15a7b8f821144ef0e2f1a /src/GF/Speech/SRG.hs | |
| parent | 514a8d6afa9bd587ff7a52c894e263b165fcec2b (diff) | |
Fixed (final?) two bugs in the SISR generation.
Diffstat (limited to 'src/GF/Speech/SRG.hs')
| -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 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 |