From d2dc5dee02da39070111bc3fc2bb2bb4e829b9db Mon Sep 17 00:00:00 2001 From: hasufell Date: Wed, 3 Dec 2014 22:11:10 +0100 Subject: [PATCH] DIAG: rm whiteRect function, it's only used once --- Graphics/Diagram/Plotter.hs | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/Graphics/Diagram/Plotter.hs b/Graphics/Diagram/Plotter.hs index 9e9a729..36ffa9b 100644 --- a/Graphics/Diagram/Plotter.hs +++ b/Graphics/Diagram/Plotter.hs @@ -85,17 +85,14 @@ yAxis = whiteRectB :: Diag whiteRectB = Diag rect' where - rect' p _ = whiteRect (diagWidth p + (diagWidth p / 10)) - (diagHeight p + (diagHeight p / 10)) + rect' p _ = rect (diagWidth p + (diagWidth p / 10)) + (diagHeight p + (diagHeight p / 10)) + # lwG 0.00 + # bg white # moveTo (p2 (diagWidthOffset p, diagHeightOffset p)) where --- |Create a white rectangle with the given width and height. -whiteRect :: Double -> Double -> Diagram Cairo R2 -whiteRect x y = rect x y # lwG 0.00 # bg white - - -- |Create a grid across the whole diagram with squares of the -- given size in DiagProp. grid :: Diag