diff options
Diffstat (limited to 'src-3.0/GF/Speech/SRG.hs')
| -rw-r--r-- | src-3.0/GF/Speech/SRG.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src-3.0/GF/Speech/SRG.hs b/src-3.0/GF/Speech/SRG.hs index 8bb509d22..defd647d7 100644 --- a/src-3.0/GF/Speech/SRG.hs +++ b/src-3.0/GF/Speech/SRG.hs @@ -90,7 +90,8 @@ makeSimpleSRG = makeSRG preprocess traceStats s g = trace ("---- " ++ s ++ ": " ++ stats g {- ++ "\n" ++ prCFRules g ++ "----" -}) g stats g = "Categories: " ++ show (countCats g) - ++ " Rules: " ++ show (countRules g) + ++ ", External categories: " ++ show (Set.size (cfgExternalCats g)) + ++ ", Rules: " ++ show (countRules g) makeNonRecursiveSRG :: PGF -> CId -- ^ Concrete syntax name. |