From ea06fe4fa14573d02144822f09f4cc1140b1d750 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Tue, 28 Oct 2014 18:51:19 +0100
Subject: [PATCH] DIAGRAM: only show coordinates for intersections

---
 Graphics/Diagram/Gtk.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Graphics/Diagram/Gtk.hs b/Graphics/Diagram/Gtk.hs
index 8074dc9..d2cc265 100644
--- a/Graphics/Diagram/Gtk.hs
+++ b/Graphics/Diagram/Gtk.hs
@@ -24,7 +24,7 @@ diag p objs@(Objects _)
       mkDiag (mconcat [polyLines, coordPointsText, coordPoints, plotterBG])
              p objs
   | alg p == 3 =
-      mkDiag (mconcat [polyIntersectionText, polyIntersection, coordPointsText,
+      mkDiag (mconcat [polyIntersectionText, polyIntersection,
                       coordPoints, polyLines, plotterBG])
              p objs
   | otherwise = mempty