on second thoughts, don't specialise if it isn't worth it
% -----------------------------------------------------------------------------
-% $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
%
%*********************************************************
\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