From: sof <unknown>
Date: Wed, 29 Apr 1998 09:12:28 +0000 (+0000)
Subject: [project @ 1998-04-29 09:12:28 by sof]
X-Git-Tag: Approx_2487_patches~767
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=81723c44345fda3fec86471299f8a5a1dc4f5815;p=ghc-hetmet.git

[project @ 1998-04-29 09:12:28 by sof]
Comment out troublesome SPECIALISE pragmas for now
---

diff --git a/ghc/compiler/utils/UniqSet.lhs b/ghc/compiler/utils/UniqSet.lhs
index 6412cc0..0c21727 100644
--- a/ghc/compiler/utils/UniqSet.lhs
+++ b/ghc/compiler/utils/UniqSet.lhs
@@ -110,17 +110,17 @@ mapUniqSet f (MkUniqSet set)
 {-# SPECIALIZE
     addOneToUniqSet :: UniqSet Unique -> Unique -> UniqSet Unique
     #-}
-{-# SPECIALIZE
+{- SPECIALIZE
     elementOfUniqSet :: Name -> UniqSet Name -> Bool
 		      , Unique -> UniqSet Unique -> Bool
-    #-}
-{-# SPECIALIZE
+    -}
+{- SPECIALIZE
     mkUniqSet :: [Name] -> UniqSet Name
-    #-}
+    -}
 
-{-# SPECIALIZE
+{- SPECIALIZE
     unitUniqSet :: Name -> UniqSet Name
 		 , Unique -> UniqSet Unique
-    #-}
+    -}
 #endif
 \end{code}