diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-03-20 21:15:59 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-03-20 21:15:59 +0000 |
| commit | a8d356d59913f0ac32b1066fadca0fb674d79385 (patch) | |
| tree | d5e868911cab2086694c304068f00f6515ed4a52 /src/GF/Speech/TransformCFG.hs | |
| parent | fbe8282027629e93df2121523074f85ed048d1bb (diff) | |
Renamed removeEmptyCats to bottomUpFilter.
Diffstat (limited to 'src/GF/Speech/TransformCFG.hs')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index eb63ad57a..689125ef3 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -87,8 +87,8 @@ stateGFCC :: StateGrammar -> GFCC stateGFCC = mkGFCC . mkCanon2gfcc . stateGrammarST -- | Remove productions which use categories which have no productions -removeEmptyCats :: CFRules -> CFRules -removeEmptyCats = fix removeEmptyCats' +bottomUpFilter :: CFRules -> CFRules +bottomUpFilter = fix removeEmptyCats' where removeEmptyCats' :: CFRules -> CFRules removeEmptyCats' rs = k' |