DIAG: be more consistent about Diag constructor parameter naming

2014-12-07 04:41:45 +01:00
parent 70a6dd1766
commit 8abe795add
2 changed files with 25 additions and 25 deletions
--- a/Graphics/Diagram/Plotter.hs
+++ b/Graphics/Diagram/Plotter.hs
@@ -11,11 +11,11 @@ import Graphics.Diagram.Core
 -- as dots. The points and thickness of the dots can be controlled
 -- via DiagProp.
 coordPoints :: Diag
-coordPoints = Diag cp
+coordPoints = Diag f
  where
-    cp _ []   = mempty
-    cp p [vt] = drawP vt (dotSize p) # fc black # lc black
-    cp p vts  = drawP (concat vts) (dotSize p) # fc black # lc black
+    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


 -- |Show coordinates as text above all points.