[project @ 1998-04-16 09:08:32 by simonm]

[ghc-hetmet.git] / ghc / compiler / utils / UniqFM.lhs

diff --git a/ghc/compiler/utils/UniqFM.lhs b/ghc/compiler/utils/UniqFM.lhs
index 094c26f..68bd7a7 100644 (file)
--- 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}
 
 %************************************************************************