Commit 538da6cb authored by simonmar's avatar simonmar
Browse files

[project @ 2001-09-19 14:06:03 by simonmar]

on second thoughts, don't specialise if it isn't worth it
parent d14821d2
% -----------------------------------------------------------------------------
% $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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment