diff options
Diffstat (limited to 'src/GF/Speech/TransformCFG.hs')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index b1ddcbde2..27435ed89 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -19,7 +19,7 @@ -- FIXME: lots of this stuff is used by CFGToFiniteState, thus -- the missing explicit expot list. module GF.Speech.TransformCFG {- (CFRule_, CFRules, - cfgToCFRules, getStartCat, + cfgToCFRules, removeLeftRecursion, removeEmptyCats, removeIdenticalRules) -} where @@ -56,9 +56,6 @@ cfgToCFRules cfg = groupProds [CFRule (catToString c) (map symb r) n | CFRule c -- symb (Tok t) = Tok t catToString = prt -getStartCat :: Options -> String -getStartCat opts = fromMaybe "S" (getOptVal opts gStartCat) ++ "{}.s" - -- | Group productions by their lhs categories groupProds :: [CFRule_] -> CFRules groupProds = Map.toList . Map.fromListWith (++) . map (\r -> (lhsCat r,[r])) |