From d7366c7e27970b3676e6710e589481fca8817ae2 Mon Sep 17 00:00:00 2001 From: hasufell Date: Wed, 17 Dec 2014 05:18:49 +0100 Subject: [PATCH] TESTS: reorder arguments in getAngleProp6 --- Test/Vector.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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