hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

DIAGRAM: improve haddock doc

Browse Source
This commit is contained in:
hasufell 2014-10-10 15:34:38 +02:00
parent 1540bf443e
commit 5d5d0b7643
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Diagram.hs
View File

@ -114,6 +114,7 @@ pointToTextCoord pt =
(x, y) = unp2 pt (x, y) = unp2 pt
-- |Show coordinates as text above all points.
coordPointsText :: Diag coordPointsText :: Diag
coordPointsText = Diag cpt coordPointsText = Diag cpt
where where
@ -134,7 +135,7 @@ convexHullPoints = Diag chp
vtch = grahamGetCH vt 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
convexHullPointsText = Diag chpt convexHullPointsText = Diag chpt
where where