VEC: fix haddock doc

This commit is contained in:
hasufell 2014-10-25 14:50:09 +02:00
parent 4a4d49200a
commit 70b4fa6e01
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020

View File

@ -122,7 +122,7 @@ ptCmpY :: PT -> PT -> Ordering
ptCmpY p1' p2' = compare ((snd . unp2) p1') ((snd . unp2) p2') 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 :: PT -> PT -> Ordering
ptCmpX p1' p2' = compare ((fst . unp2) p1') ((fst . unp2) p2') ptCmpX p1' p2' = compare ((fst . unp2) p1') ((fst . unp2) p2')