From 7ae2e0167889e6fde45fcd175d3dfab0029f973a Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Tue, 20 Mar 2007 22:09:17 +0000
Subject: Remove removeIdenticalRules, since it would get rid of alternative
 parse results.

---
 src/GF/Speech/TransformCFG.hs | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'src/GF/Speech/TransformCFG.hs')

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
-- 
cgit v1.2.3