msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

CFRules tracing.

Browse Source
This commit is contained in:
bringert
2007-06-28 01:26:09 +00:00
parent 448e1db488
commit 731b5c4f98
2 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Speech/SRG.hs
View File

@@ -101,7 +101,7 @@ makeSimpleSRG opt s = makeSRG preprocess opt s
. removeCycles
. traceStats "Inital CFG"
traceStats s g = trace (s ++ ": " ++ stats g) g
traceStats s g = trace ("---- " ++ s ++ ": " ++ stats g {- ++ "\n" ++ prCFRules g ++ "----" -}) g
stats g = "Categories: " ++ show (countCats g)
++ " Rules: " ++ show (countRules g)