X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FUniqFM.lhs;h=68bd7a71f482c0497f35f9b72e7562ff3c79e0c0;hb=9feebf2bf322dabd44a339504772863a416ec598;hp=094c26fc218b38bf26b2b2c8e7f15104d15733e0;hpb=1d7de903e709a4ae4f274098e8fcfb9d1a78d0be;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/UniqFM.lhs b/ghc/compiler/utils/UniqFM.lhs
index 094c26f..68bd7a7 100644
--- a/ghc/compiler/utils/UniqFM.lhs
+++ b/ghc/compiler/utils/UniqFM.lhs
@@ -131,7 +131,8 @@ ufmToList	:: UniqFM elt -> [(Unique, elt)]
 \begin{code}
 -- Turn off for now, these need to be updated (SDM 4/98)
 
-{- #ifdef __GLASGOW_HASKELL__ -}
+#if 0
+#ifdef __GLASGOW_HASKELL__
 -- I don't think HBC was too happy about this (WDP 94/10)
 
 {-# SPECIALIZE
@@ -151,7 +152,8 @@ ufmToList	:: UniqFM elt -> [(Unique, elt)]
 		 , UniqFM elt -> Unique -> Maybe elt
   #-}
 
-{- #endif {- __GLASGOW_HASKELL__ -} -}
+#endif {- __GLASGOW_HASKELL__ -}
+#endif
 \end{code}
 
 %************************************************************************