onomastics-ng: fix color palette

2022-10-07 02:40:01 +02:00
parent b830ea7f98
commit 23ff9fd7e6
2 changed files with 2 additions and 4 deletions
--- a/onomastics-ng/cli/Main.hs
+++ b/onomastics-ng/cli/Main.hs
@@ -38,7 +38,7 @@ main = do
            case mode options of
                Relative -> relativeCount
                Absolute -> absoluteCount
-        colors = if null $ colorPalette options then defaultColorPalette else colorPalette options
+        colors = colorPalette options ++ defaultColorPalette
        svgSettings = SvgSettings{scaleToMaximum = Global}
    res <- runStoepel manager' $ do
        let theNames = map Just (surnames options)