Renamed removeEmptyCats to bottomUpFilter.

src/GF/Speech/CFGToFiniteState.hs

@@ -63,7 +63,7 @@ cfgToFA opts s = minimize $ compileAutomaton start $ makeSimpleRegular s
   where start = getStartCatCF opts s
 
 makeSimpleRegular :: StateGrammar -> CFRules
-makeSimpleRegular = makeRegular . removeIdenticalRules . removeEmptyCats . cfgToCFRules
+makeSimpleRegular = makeRegular . removeIdenticalRules . bottomUpFilter . cfgToCFRules
 
 --
 -- * Approximate context-free grammars with regular grammars.

src/GF/Speech/SRG.hs

@@ -96,7 +96,7 @@ makeSimpleSRG opt s =
     l = fmap (replace '_' '-') $ getOptVal opts speechLanguage
     (cats,cfgRules) = unzip $ preprocess $ cfgToCFRules s
     preprocess = removeLeftRecursion origStart 
-                 . removeEmptyCats 
+                 . bottomUpFilter 
                  . topDownFilter origStart
                  . removeIdenticalRules 
                  . removeCycles

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'