From: simonm <unknown>
Date: Thu, 16 Apr 1998 09:08:32 +0000 (+0000)
Subject: [project @ 1998-04-16 09:08:32 by simonm]
X-Git-Tag: Approx_2487_patches~795
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9feebf2bf322dabd44a339504772863a416ec598;p=ghc-hetmet.git

[project @ 1998-04-16 09:08:32 by simonm]
embarrasing braino in yesterday's commit.
---

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}
 
 %************************************************************************