X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FComplex.hs;fp=Data%2FComplex.hs;h=6b9999b19c3533ca43791a96c58dcf3a0accd7aa;hb=7316246c1797d46f5757ae156486f09b3db083d9;hp=20448c7c2e15d6fc6a6d3fc099978d702a082dc6;hpb=2436086e76439e5e71bd2960b53cd9099d69cd0c;p=ghc-base.git diff --git a/Data/Complex.hs b/Data/Complex.hs index 20448c7..6b9999b 100644 --- a/Data/Complex.hs +++ b/Data/Complex.hs @@ -120,10 +120,8 @@ phase (x:+y) = atan2 y x -- ----------------------------------------------------------------------------- -- Instances of Complex -#ifndef __NHC__ #include "Typeable.h" INSTANCE_TYPEABLE1(Complex,complexTc,"Complex") -#endif instance (RealFloat a) => Num (Complex a) where {-# SPECIALISE instance Num (Complex Float) #-}