DIAG: rm unused parameter

2014-11-16 17:25:58 +01:00
parent ea88ef84ea
commit 8d7ed598e2
1 changed files with 1 additions and 1 deletions
--- a/Graphics/Diagram/Plotter.hs
+++ b/Graphics/Diagram/Plotter.hs
@@ -157,7 +157,7 @@ convexHLs = Diag chl
 convexHStepsLs :: Diag
 convexHStepsLs = GifDiag chs
  where
-    chs p col f vt =
+    chs _ col f vt =
      fmap mkChDiag (f vt)
      where
        mkChDiag vt' =