[project @ 1997-09-04 19:53:50 by sof]

Removed assocMaybe SPECIALIZE pragma
ghc · Sep 4, 1997 · 2a18077 · 2a18077
1 parent e376c9e
commit 2a18077
Showing 1 changed file with 0 additions and 9 deletions.
diff --git 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