X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FComplex.hs;fp=Data%2FComplex.hs;h=369250149267dddf662073c0b77fdedea3ef62b2;hb=54fb2efb814fc5f65d3699e7a495b9c050729d58;hp=9ea8a413c58c139bd41a41a4c9ff8082bea04dee;hpb=0d363cf82a46a55b7d0b407fb667f9ea9756a578;p=ghc-base.git diff --git a/Data/Complex.hs b/Data/Complex.hs index 9ea8a41..3692501 100644 --- a/Data/Complex.hs +++ b/Data/Complex.hs @@ -67,7 +67,7 @@ infix 6 :+ -- For a complex number @z@, @'abs' z@ is a number with the magnitude of @z@, -- but oriented in the positive real direction, whereas @'signum' z@ -- has the phase of @z@, but unit magnitude. -data (RealFloat a) => Complex a +data Complex a = !a :+ !a -- ^ forms a complex number from its real and imaginary -- rectangular components. # if __GLASGOW_HASKELL__