DIAGRAM: improve haddock doc

2014-10-10 15:34:38 +02:00 · 2014-10-10 15:34:38 +02:00 · 5d5d0b7643
commit 5d5d0b7643
parent 1540bf443e
1 changed files with 2 additions and 1 deletions
--- a/Diagram.hs
+++ b/Diagram.hs
@ -114,6 +114,7 @@ pointToTextCoord pt =
    (x, y) = unp2 pt


+-- |Show coordinates as text above all points.
 coordPointsText :: Diag
 coordPointsText = Diag cpt
  where
@ -134,7 +135,7 @@ convexHullPoints = Diag chp
        vtch = grahamGetCH vt


-- |Create a diagram which shows the points of the convex hull.
+-- |Show coordinates as text above the convex hull points.
 convexHullPointsText :: Diag
 convexHullPointsText = Diag chpt
  where