hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
hasufell 2014-10-13 19:15:09 +02:00
parent 0dff1174f2
commit 67ef9fa223
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Algebra/Vector.hs
View File

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