Clear all warnings

2021-05-17 23:23:10 +02:00
parent 69f915a894
commit 44f239c673
22 changed files with 176 additions and 202 deletions
@@ -174,7 +174,7 @@ safeNormalizeV p = (1/magV p ) *.* p
 -}
 magV :: Point2 -> Float
 {-# INLINE magV #-}
-magV (x,y) = sqrt $ x^2 + y^2
+magV (x,y) = sqrt $ x^(2::Int) + y^(2::Int)

 {- | Magnitude of the cross product of two vectors.
 Identical to detV.