From 70b4fa6e01894d46ba7e5a0f4c84ee152cf7477e Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Sat, 25 Oct 2014 14:50:09 +0200
Subject: [PATCH] VEC: fix haddock doc

---
 Algebra/Vector.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Algebra/Vector.hs b/Algebra/Vector.hs
index 10a1911..abcab5d 100644
--- a/Algebra/Vector.hs
+++ b/Algebra/Vector.hs
@@ -122,7 +122,7 @@ ptCmpY :: PT -> PT -> Ordering
 ptCmpY p1' p2' = compare ((snd . unp2) p1') ((snd . unp2) p2')
 
 
--- |Compare the y-coordinate of two points.
+-- |Compare the x-coordinate of two points.
 ptCmpX :: PT -> PT -> Ordering
 ptCmpX p1' p2' = compare ((fst . unp2) p1') ((fst . unp2) p2')