From 2a1807721fdd215bfa03dc1c199c374bc7a3e67e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 4 Sep 1997 19:53:50 +0000
Subject: [PATCH] [project @ 1997-09-04 19:53:50 by sof] Removed assocMaybe
SPECIALIZE pragma
---
ghc/compiler/utils/Maybes.lhs | 9 ---------
1 file changed, 9 deletions(-)
diff --git a/ghc/compiler/utils/Maybes.lhs b/ghc/compiler/utils/Maybes.lhs
index b29dd9c56454..3cf3221ee641 100644
--- a/ghc/compiler/utils/Maybes.lhs
+++ b/ghc/compiler/utils/Maybes.lhs
@@ -28,9 +28,6 @@ module Maybes (
catMaybes
) where
-CHK_Ubiq() -- debugging consistency check
-import Unique (Unique) -- only for specialising
-
#if __GLASGOW_HASKELL__ >= 204
import Maybe( catMaybes, mapMaybe )
#endif
@@ -131,12 +128,6 @@ assocMaybe alist key
where
lookup [] = Nothing
lookup ((tv,ty):rest) = if key == tv then Just ty else lookup rest
-
-{-# SPECIALIZE assocMaybe
- :: [(FAST_STRING, b)] -> FAST_STRING -> Maybe b
- , [(Int, b)] -> Int -> Maybe b
- , [(Unique, b)] -> Unique -> Maybe b
- #-}
\end{code}
@mkLookupFun eq alist@ is a function which looks up
--
GitLab