X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FComplex.hs;h=369250149267dddf662073c0b77fdedea3ef62b2;hb=8073392a94dc5ab198e4758d6738a0c7f5ed68cf;hp=9ea8a413c58c139bd41a41a4c9ff8082bea04dee;hpb=4475dcabbc206d1cf0fc3fee88f600a4791d948c;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__