src/*.hs: fix all -Woperator-whitespace warnings

[spline3.git] / src / Point.hs

diff --git a/src/Point.hs b/src/Point.hs
index 004b2e4498f99920971b9f36a2d3b6aa8d32dc01..d8b8dd858fba42d443a61069437484278b0ceb3a 100644 (file)
--- a/src/Point.hs
+++ b/src/Point.hs
@@ -24,7 +24,7 @@ instance Arbitrary Point where
 
 
 instance Num Point where
-  (Point x1 y1 z1) + (Point x2 y2 z2) = Point (x1+x2) (y1+y2) (z1+z2)
+  (Point x1 y1 z1) + (Point x2 y2 z2) = Point (x1 + x2) (y1 + y2) (z1 + z2)
   (Point x1 y1 z1) - (Point x2 y2 z2) = Point (x1-x2) (y1-y2) (z1-z2)
   (Point x1 y1 z1) * (Point x2 y2 z2) = Point (x1*x2) (y1*y2) (z1*z2)
   abs (Point x y z) = Point (abs x) (abs y) (abs z)
@@ -44,4 +44,4 @@ scale (Point x y z) d = Point (x*d) (y*d) (z*d)
 {-# INLINE dot #-}
 dot :: Point -> Point -> Double
 dot (Point x1 y1 z1) (Point x2 y2 z2) =
-    (x2 - x1)^(2::Int) + (y2 - y1)^(2::Int) + (z2 - z1)^(2::Int)
+    (x2 - x1) ^ (2::Int) + (y2 - y1) ^ (2::Int) + (z2 - z1) ^ (2::Int)