diff options
Diffstat (limited to 'src/GF/Speech/SRG.hs')
| -rw-r--r-- | src/GF/Speech/SRG.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs index 293cee34c..40e220923 100644 --- a/src/GF/Speech/SRG.hs +++ b/src/GF/Speech/SRG.hs @@ -103,8 +103,8 @@ makeSimpleSRG opt s = makeSRG preprocess opt s traceStats s g = trace (s ++ ": " ++ stats g) g -stats g = "Categories: " ++ show (length (filter (not . null . snd) g)) - ++ " Rules: " ++ show (length (concatMap snd g)) +stats g = "Categories: " ++ show (countCats g) + ++ " Rules: " ++ show (countRules g) makeNonRecursiveSRG :: Options -> StateGrammar @@ -136,7 +136,7 @@ makeSRG preprocess opt s = renameSRG $ where name = prIdent (cncId s) origStart = getStartCatCF opt s - (cats,cfgRules) = unzip $ preprocess origStart $ cfgToCFRules s + (_,cfgRules) = unzip $ allRulesGrouped $ preprocess origStart $ cfgToCFRules s rs = map (cfgRulesToSRGRule (stateProbs s)) cfgRules -- | Give names on the form NameX to all categories. |