DIAGRAM: draw all points

2014-10-25 14:49:36 +02:00
parent ddff8b1fb2
commit c4ab68c76d
1 changed files with 1 additions and 1 deletions
--- 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