From e32472a9bb40468bd77db839d683bd15e89db2e1 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Thu, 22 Dec 2005 23:16:15 +0000
Subject: Some performance improvements in the FA generation.

---
 src/GF/Data/Utilities.hs | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src/GF/Data')

diff --git a/src/GF/Data/Utilities.hs b/src/GF/Data/Utilities.hs
index d7e6be2f0..50d1f5195 100644
--- a/src/GF/Data/Utilities.hs
+++ b/src/GF/Data/Utilities.hs
@@ -34,11 +34,6 @@ lookupList a [] = []
 lookupList a (p:ps) | a == fst p = snd p : lookupList a ps
 		    | otherwise  =         lookupList a ps
 
--- | Find the first list in a list of lists
---   which contains the argument.
-findSet :: Eq c => c -> [[c]] -> Maybe [c]
-findSet x = find (x `elem`)
-
 split :: [a] -> ([a], [a])
 split (x : y : as) = (x:xs, y:ys)
     where (xs, ys) = split as
-- 
cgit v1.2.3