From: simonmar <unknown>
Date: Wed, 19 Sep 2001 14:06:03 +0000 (+0000)
Subject: [project @ 2001-09-19 14:06:03 by simonmar]
X-Git-Tag: Approximately_9120_patches~954
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=538da6cb2ff0450900e3a33cb285c942b079fe5d;p=ghc-hetmet.git

[project @ 2001-09-19 14:06:03 by simonmar]
on second thoughts, don't specialise if it isn't worth it
---

diff --git a/ghc/lib/std/Complex.lhs b/ghc/lib/std/Complex.lhs
index 78d8a74..b7849d2 100644
--- a/ghc/lib/std/Complex.lhs
+++ b/ghc/lib/std/Complex.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: Complex.lhs,v 1.6 2001/09/19 14:05:01 simonmar Exp $
+% $Id: Complex.lhs,v 1.7 2001/09/19 14:06:03 simonmar Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -55,8 +55,6 @@ data  (RealFloat a)     => Complex a = !a :+ !a  deriving (Eq, Read, Show)
 %*********************************************************
 
 \begin{code}
-{-# SPECIALISE realPart :: Complex Double -> Double #-}
-{-# SPECIALISE imagPart :: Complex Double -> Double #-}
 realPart, imagPart :: (RealFloat a) => Complex a -> a
 realPart (x :+ _) =  x
 imagPart (_ :+ y) =  y