From: sof <unknown>
Date: Thu, 4 Sep 1997 19:53:50 +0000 (+0000)
Subject: [project @ 1997-09-04 19:53:50 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~28
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2a1807721fdd215bfa03dc1c199c374bc7a3e67e;p=ghc-hetmet.git

[project @ 1997-09-04 19:53:50 by sof]
Removed assocMaybe SPECIALIZE pragma
---

diff --git a/ghc/compiler/utils/Maybes.lhs b/ghc/compiler/utils/Maybes.lhs
index b29dd9c..3cf3221 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