Refactor function names, split out some functions

2014-10-13 20:14:50 +02:00
parent d87dc25d26
commit 09eeaeda27
3 changed files with 33 additions and 28 deletions
--- a/Graphics/Diagram/Gtk.hs
+++ b/Graphics/Diagram/Gtk.hs
@@ -22,8 +22,8 @@ diag p = case alg p of
  1 ->
    mkDiag
      (mconcat
-        [maybeDiag (ct p) convexHullPointsText,
-        convexHullPoints, convexHullLines,
+        [maybeDiag (ct p) convexHPText,
+        convexHP, convexHLs,
        coordPoints, xAxis, yAxis,
        maybeDiag (gd p) grid, whiteRectB])
      p