diff --git a/Test/Vector.hs b/Test/Vector.hs index 60c989a..c8b1e1d 100644 --- a/Test/Vector.hs +++ b/Test/Vector.hs @@ -79,4 +79,4 @@ getAngleProp5 (Positive (R2 x1 _)) (Positive (R2 _ y2)) getAngleProp6 :: Positive Vec -> Positive Vec -> Bool getAngleProp6 (Positive (R2 _ y1)) (Positive (R2 x2 _)) - = getAngle (R2 x2 0) (R2 0 y1) == pi / 2 + = getAngle (R2 0 y1) (R2 x2 0) == pi / 2