VEC: fix "defaulting... constraint to type Integer" warning

2014-10-13 19:15:09 +02:00
parent 0dff1174f2
commit 67ef9fa223
1 changed files with 1 additions and 1 deletions
--- a/Algebra/Vector.hs
+++ b/Algebra/Vector.hs
@@ -27,7 +27,7 @@ getAngle a b =

 -- |Get the length of a vector.
 vecLength :: Vec -> Double
-vecLength v = sqrt (x^2 + y^2)
+vecLength v = sqrt (x^(2 :: Int) + y^(2 :: Int))
  where
    (x, y) = unr2 v