From c6ca5fa7da96e3b5b896b16f0a40d3922f59f12a Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Sun, 7 Dec 2014 20:30:51 +0100
Subject: [PATCH] DIAG: add haddock comment

---
 Graphics/Diagram/Plotter.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Graphics/Diagram/Plotter.hs b/Graphics/Diagram/Plotter.hs
index abf3b4d..7cc29e0 100644
--- 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)