kfm/to-hen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

onomastics-ng: fix color palette

Browse Source
This commit is contained in:
Kierán Meinhardt
2022-10-07 02:40:01 +02:00
parent b830ea7f98
commit 23ff9fd7e6
2 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
onomastics-ng/cli/Main.hs
View File

@@ -38,7 +38,7 @@ main = do
case mode options of case mode options of
Relative -> relativeCount Relative -> relativeCount
Absolute -> absoluteCount Absolute -> absoluteCount
colors = if null $ colorPalette options then defaultColorPalette else colorPalette options colors = colorPalette options ++ defaultColorPalette
svgSettings = SvgSettings{scaleToMaximum = Global} svgSettings = SvgSettings{scaleToMaximum = Global}
res <- runStoepel manager' $ do res <- runStoepel manager' $ do
let theNames = map Just (surnames options) let theNames = map Just (surnames options)

4
onomastics-ng/web/Main.hs
View File

@@ -88,9 +88,7 @@ app manager' (theDistricts, theStates) = serve onomapApi server
let stats = map (computeAreaStatistics computeFunction theAreas) theStats let stats = map (computeAreaStatistics computeFunction theAreas) theStats
return return
Response Response
{ color = case colors of { color = colors ++ defaultColorPalette
[] -> defaultColorPalette
x -> x
, areas = theAreas , areas = theAreas
, statistics = zip surnames stats , statistics = zip surnames stats
} }