From: simonpj <unknown>
Date: Tue, 3 Oct 2000 08:29:30 +0000 (+0000)
Subject: [project @ 2000-10-03 08:29:30 by simonpj]
X-Git-Tag: Approximately_9120_patches~3704
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=af099cc124dcb1c5cbb1166aed1177848540c3ab;p=ghc-hetmet.git

[project @ 2000-10-03 08:29:30 by simonpj]
Remove dead code mkLookupFun
---

diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index 5fd46c4..3d209c9 100644
--- a/ghc/compiler/stranal/SaAbsInt.lhs
+++ b/ghc/compiler/stranal/SaAbsInt.lhs
@@ -816,19 +816,6 @@ cheapFixpoint anal ids rhss env
 	  AbsAnal -> AbsBot
 \end{code}
 
-\begin{verbatim}
-mkLookupFun :: (key -> key -> Bool)	-- Equality predicate
-	    -> (key -> key -> Bool)	-- Less-than predicate
-	    -> [(key,val)] 		-- The assoc list
-	    -> key 			-- The key
-	    -> Maybe val		-- The corresponding value
-
-mkLookupFun eq lt alist s
-  = case [a | (s',a) <- alist, s' `eq` s] of
-      []    -> Nothing
-      (a:_) -> Just a
-\end{verbatim}
-
 \begin{code}
 fixpoint :: AnalysisKind -> [Id] -> [CoreExpr] -> AbsValEnv -> [AbsVal]