From c4ab68c76dece541601e29989ceeb040277362aa Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Sat, 25 Oct 2014 14:49:36 +0200
Subject: [PATCH] DIAGRAM: draw all points

---
 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 9b310d0..1464f85 100644
--- a/Graphics/Diagram/Gtk.hs
+++ b/Graphics/Diagram/Gtk.hs
@@ -38,7 +38,7 @@ diag p pts = case alg p of
   where
     polys =
       mkDiag
-        (mconcat [maybeDiag (ct p) coordPointsText, polyLines])
+        (mconcat [maybeDiag (ct p) coordPointsText, coordPoints, polyLines])
         p (head pts)
       `atop`
       mkDiag