@@ -76,3 +76,10 @@ implementation Neg (Complex Double) where
76 negate = map negate
76 negate = map negate
77 (-) (a:+b) (c:+d) = ((a-c):+(b-d))
77 (-) (a:+b) (c:+d) = ((a-c):+(b-d))
78 abs (a:+b) = (magnitude (a:+b):+0)
78 abs (a:+b) = (magnitude (a:+b):+0)
80+-- As soon as abs moves out of Neg (issue #3500), the following would become a
83+-- implementation Neg a => Neg (Complex a) where
84+-- negate = map negate
85+-- (-) (a:+b) (c:+d) = ((a-c):+(b-d))