DIAG: add haddock comment

2014-12-07 20:30:51 +01:00 · 2014-12-07 20:30:51 +01:00 · c6ca5fa7da
commit c6ca5fa7da
parent 34ba3bbfa2
1 changed files with 2 additions and 0 deletions
--- a/Graphics/Diagram/Plotter.hs
+++ b/Graphics/Diagram/Plotter.hs
@ -7,12 +7,14 @@ import Diagrams.Prelude hiding ((<>))
 import Graphics.Diagram.Core


+-- |All x coordinates separated by the squareSize on DiagProp.
 xAxisPoints :: DiagProp -> [Double]
 xAxisPoints p = takeWhile (< diagXmax p)
                  . iterate (+ squareSize p)
                  $ diagXmin p


+-- |All y coordinates separated by the squareSize on DiagProp.
 yAxisPoints :: DiagProp -> [Double]
 yAxisPoints p = takeWhile (< diagYmax p)
                  . iterate (+ squareSize p)