onomastics-ng: remove unused variable

2022-10-09 07:14:11 +02:00
parent 876cb69de6
commit 86c7108094
1 changed files with 2 additions and 2 deletions
--- a/onomastics-ng/lib/Onomap/Svg.hs
+++ b/onomastics-ng/lib/Onomap/Svg.hs
@@ -91,7 +91,7 @@ drawMap settings colorPalette areas statistics =
            )
            (zip3 [0 ..] colorPalette theMaxima)
            <> foldMap
-                ( \(index, (name, statistic), color) ->
+                ( \(index, (name, statistic)) ->
                    g_
                        []
                        ( rect_
@@ -119,6 +119,6 @@ drawMap settings colorPalette areas statistics =
                                (toElement $ localize $ showRounded $ maximum $ getByArea statistic)
                        )
                )
-                (zip3 [0 ..] statistics colorPalette)
+                (zip [0 ..] statistics)
            <> style_ [] "path { mix-blend-mode: multiply; }"
            <> g_ [] areaPaths