Harmonize ecosystemic services values in the API. (#564)

[user story](https://www.notion.so/08b51954f9e44397ab2276fc4bcb7a32)
MTES-MCT · Apr 10, 2024 · 3a50b65 · 3a50b65
1 parent b29e598
commit 3a50b65
Show file tree

Hide file tree

Showing 2 changed files with 51 additions and 30 deletions.
diff --git a/src/Data/Impact.elm b/src/Data/Impact.elm
@@ -101,6 +101,39 @@ divideComplementsImpactsBy n =
     mapComplementsImpacts (Quantity.divideBy n)
 
 
+encodeComplementsImpacts : ComplementsImpacts -> Encode.Value
+encodeComplementsImpacts complementsImpact =
+    let
+        negated =
+            negateComplementsImpacts complementsImpact
+    in
+    Encode.object
+        -- Ecosystemic services
+        [ ( "hedges", Unit.encodeImpact negated.hedges )
+        , ( "plotSize", Unit.encodeImpact negated.plotSize )
+        , ( "cropDiversity", Unit.encodeImpact negated.cropDiversity )
+        , ( "permanentPasture", Unit.encodeImpact negated.permanentPasture )
+        , ( "livestockDensity", Unit.encodeImpact negated.livestockDensity )
+
+        -- Textile complements
+        , ( "microfibers", Unit.encodeImpact negated.microfibers )
+        , ( "outOfEuropeEOL", Unit.encodeImpact negated.outOfEuropeEOL )
+        ]
+
+
+getTotalComplementsImpacts : ComplementsImpacts -> Unit.Impact
+getTotalComplementsImpacts complementsImpacts =
+    Quantity.sum
+        [ complementsImpacts.hedges
+        , complementsImpacts.plotSize
+        , complementsImpacts.cropDiversity
+        , complementsImpacts.permanentPasture
+        , complementsImpacts.livestockDensity
+        , complementsImpacts.microfibers
+        , complementsImpacts.outOfEuropeEOL
+        ]
+
+
 mapComplementsImpacts : (Unit.Impact -> Unit.Impact) -> ComplementsImpacts -> ComplementsImpacts
 mapComplementsImpacts fn ci =
     { hedges = fn ci.hedges
@@ -113,6 +146,11 @@ mapComplementsImpacts fn ci =
     }
 
 
+negateComplementsImpacts : ComplementsImpacts -> ComplementsImpacts
+negateComplementsImpacts =
+    mapComplementsImpacts (Unit.impactToFloat >> negate >> Unit.impact)
+
+
 noComplementsImpacts : ComplementsImpacts
 noComplementsImpacts =
     { hedges = Unit.impact 0
@@ -125,19 +163,6 @@ noComplementsImpacts =
     }
 
 
-getTotalComplementsImpacts : ComplementsImpacts -> Unit.Impact
-getTotalComplementsImpacts complementsImpacts =
-    Quantity.sum
-        [ complementsImpacts.hedges
-        , complementsImpacts.plotSize
-        , complementsImpacts.cropDiversity
-        , complementsImpacts.permanentPasture
-        , complementsImpacts.livestockDensity
-        , complementsImpacts.microfibers
-        , complementsImpacts.outOfEuropeEOL
-        ]
-
-
 impactsWithComplements : ComplementsImpacts -> Impacts -> Impacts
 impactsWithComplements complementsImpacts impacts =
     let
@@ -408,24 +433,10 @@ decodeWithoutAggregated =
         |> Decode.map Impacts
 
 
-encodeComplementsImpacts : ComplementsImpacts -> Encode.Value
-encodeComplementsImpacts c =
-    Encode.object
-        [ ( "hedges", Unit.encodeImpact c.hedges )
-        , ( "plotSize", Unit.encodeImpact c.plotSize )
-        , ( "cropDiversity", Unit.encodeImpact c.cropDiversity )
-        , ( "permanentPasture", Unit.encodeImpact c.permanentPasture )
-        , ( "livestockDensity", Unit.encodeImpact c.livestockDensity )
-        , ( "microfibers", Unit.encodeImpact c.microfibers )
-        , ( "outOfEuropeEOL", Unit.encodeImpact c.outOfEuropeEOL )
-        ]
-
-
 encode : Impacts -> Encode.Value
 encode (Impacts impacts) =
-    Definition.encodeBase
-        Unit.encodeImpact
-        impacts
+    impacts
+        |> Definition.encodeBase Unit.encodeImpact
 
 
 encodeSingleImpact : Impacts -> Trigram -> Encode.Value

diff --git a/src/Page/Api.elm b/src/Page/Api.elm
@@ -54,7 +54,17 @@ getApiServerUrl { clientUrl } =
 
 changelog : List News
 changelog =
-    [ { date = "9 avril 2024"
+    [ { date = "10 avril 2024"
+      , level = "minor"
+      , domains = [ "Textile" ]
+      , md =
+            """Les compléments sont désormais exposés de façon à mieux matérialiser leurs
+               effets\u{00A0}; une dégradation est désormais exprimée par un nombre positif
+               (qui additionnée au coût le fait augmenter), tandis qu'une amélioration
+               s'exprime par une valeur négative (qui additionnée au coût le fait baisser).
+            """
+      }
+    , { date = "9 avril 2024"
       , level = "minor"
       , domains = [ "Textile" ]
       , md =