From 60843e5879e2266aef88610f5772a0f93b3f1f66 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Fri, 10 Oct 2014 23:28:01 +0200
Subject: [PATCH] DIAGRAM: rm unnecessary square

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

diff --git a/Graphics/Diagram/Plotter.hs b/Graphics/Diagram/Plotter.hs
index adf975a..16f5c98 100644
--- a/Graphics/Diagram/Plotter.hs
+++ b/Graphics/Diagram/Plotter.hs
@@ -118,8 +118,7 @@ xAxis =
     labels p _ =
       position $
         zip (mkPoint <$> xs)
-            ((\x -> (flip (<>) (square 1 # lw none) .
-              text . show $ x) # scale 10) <$> xs)
+            ((\x -> (text . show $ x) # scale 10) <$> xs)
       where
         xs :: [Int]
         xs = take (floor . (/) (xuD p - xlD p) $ (sqS p))
@@ -146,8 +145,7 @@ yAxis =
     labels p _ =
       position $
         zip (mkPoint <$> ys)
-            ((\x -> (flip (<>) (square 1 # lw none) .
-              text . show $ x) # scale 10) <$> ys)
+            ((\x -> (text . show $ x) # scale 10) <$> ys)
         where
           ys :: [Int]
           ys = take (floor . (/) (yuD p - ylD p) $ (sqS p))