From 3f0c8ab6fb074f0d93e64cde0ab474dfc340c66e Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 8 Sep 2000 09:26:05 +0000 Subject: [PATCH] [project @ 2000-09-08 09:26:05 by simonmar] oops, forgot to remove an instance of REALLY_HASKELL_1_3 --- ghc/compiler/utils/FiniteMap.lhs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/ghc/compiler/utils/FiniteMap.lhs b/ghc/compiler/utils/FiniteMap.lhs index d4e4931..cb7da6d 100644 --- a/ghc/compiler/utils/FiniteMap.lhs +++ b/ghc/compiler/utils/FiniteMap.lhs @@ -682,7 +682,9 @@ When the FiniteMap module is used in GHC, we specialise it for \tr{Uniques}, for dastardly efficiency reasons. \begin{code} -#if __GLASGOW_HASKELL__ && !defined(REALLY_HASKELL_1_3) +#if 0 + +#if __GLASGOW_HASKELL__ {-# SPECIALIZE addListToFM :: FiniteMap (FAST_STRING, FAST_STRING) elt -> [((FAST_STRING, FAST_STRING),elt)] -> FiniteMap (FAST_STRING, FAST_STRING) elt @@ -744,4 +746,6 @@ When the FiniteMap module is used in GHC, we specialise it for #-} #endif {- compiling with ghc and have specialiser -} + +#endif {- 0 -} \end{code} -- 1.7.10.4