diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-03-20 22:09:17 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-03-20 22:09:17 +0000 |
| commit | 7ae2e0167889e6fde45fcd175d3dfab0029f973a (patch) | |
| tree | 6dca582ff723888669f7401139e06342330c8e08 /src/GF/Speech/TransformCFG.hs | |
| parent | 00e681aee886c3b12acbaf07068571238a955ed2 (diff) | |
Remove removeIdenticalRules, since it would get rid of alternative parse results.
Diffstat (limited to 'src/GF/Speech/TransformCFG.hs')
| -rw-r--r-- | src/GF/Speech/TransformCFG.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/GF/Speech/TransformCFG.hs b/src/GF/Speech/TransformCFG.hs index 1439cc09d..232239b20 100644 --- a/src/GF/Speech/TransformCFG.hs +++ b/src/GF/Speech/TransformCFG.hs @@ -112,14 +112,6 @@ topDownFilter start rules = filter ((`Set.member` keep) . fst) rules uses = reflexiveClosure_ (allCats rules) $ transitiveClosure $ mkRel rhsCats keep = allRelated uses start --- | Remove rules which have the same rhs. --- FIXME: this messes up probabilities, names and profiles -removeIdenticalRules :: CFRules -> CFRules -removeIdenticalRules g = [(c,sortNubBy cmpRules rs) | (c,rs) <- g] - where - cmpRules (CFRule c1 ss1 _) (CFRule c2 ss2 _) = - mconcat [c1 `compare` c2, ss1 `compare` ss2] - -- * Removing left recursion -- The LC_LR algorithm from |