onomastigs-ng: respect scaleToMaximum parameter

2022-10-09 06:58:39 +02:00
parent a3e3e368c7
commit 03b6db3153
3 changed files with 14 additions and 4 deletions
--- a/onomastics-ng/lib/Onomap/Types.hs
+++ b/onomastics-ng/lib/Onomap/Types.hs
@@ -28,6 +28,12 @@ defaultSvgSettings = SvgSettings { scaleToMaximum = Global }

 data ScaleToMaximum = Global | Local

+instance FromHttpApiData ScaleToMaximum where
+  parseUrlPiece = \case
+    "global" -> Right Global
+    "local" -> Right Local
+    x -> Left x
+
 data Mode = Relative | Absolute

 instance FromHttpApiData Mode where