diff --git a/Algebra/Vector.hs b/Algebra/Vector.hs
index 2ffcc3d..3444faf 100644
--- a/Algebra/Vector.hs
+++ b/Algebra/Vector.hs
@@ -77,8 +77,8 @@ det a b c =
 -- * collinear
 getOrient :: PT -> PT -> PT -> Alignment
 getOrient a b c = case compare (det a b c) 0 of
-  GT -> CW
-  LT -> CCW
+  LT -> CW
+  GT -> CCW
   EQ -> CL