From af099cc124dcb1c5cbb1166aed1177848540c3ab Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 3 Oct 2000 08:29:30 +0000
Subject: [PATCH] [project @ 2000-10-03 08:29:30 by simonpj] Remove dead code
mkLookupFun
---
ghc/compiler/stranal/SaAbsInt.lhs | 13 -------------
1 file changed, 13 deletions(-)
diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index 5fd46c421877..3d209c965de8 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]
--
GitLab