DIAG: consistently use [[PT]] for all Diags

Also simplify a few things like needless strokeTrail usage.
2014-12-07 18:55:49 +01:00
parent f16fe7738a
commit f8fb61e80a
3 changed files with 46 additions and 48 deletions
--- a/Graphics/Diagram/Plotter.hs
+++ b/Graphics/Diagram/Plotter.hs
@@ -13,8 +13,6 @@ import Graphics.Diagram.Core
 coordPoints :: Diag
 coordPoints = Diag f
  where
-    f _ []   = mempty
-    f p [vt] = drawP vt (dotSize p) # fc black # lc black
    f p vts  = drawP (concat vts) (dotSize p) # fc black # lc black


@@ -22,8 +20,6 @@ coordPoints = Diag f
 coordPointsText :: Diag
 coordPointsText = Diag f
  where
-    f _ []   = mempty
-    f p [vt] = drawT vt p
    f p vts  = drawT (concat vts) p
    drawT [] _ = mempty
    drawT vt p