chore: add new material types (#1980)

## 🔧 Problem

Add the material types specified in
#1965

Author: cedricr

backend/src/app/domain/processes/schemas.py

@@ -22,13 +22,32 @@ class Category(StrEnum):
     EOL = "end-of-life"
     INGREDIENT = "ingredient"
     MATERIAL = "material"
-    MATERIAL_TYPE_METAL = "material_type:metal"
+
+    MATERIAL_TYPE_ALUMINIUM = "material_type:aluminium"
+    MATERIAL_TYPE_BATTERY_CELL = "material_type:battery_cell"
+    MATERIAL_TYPE_COMPOSITES = "material_type:composites"
+    MATERIAL_TYPE_CONTAINERBOARD = "material_type:containerboard"
+    MATERIAL_TYPE_COPPER = "material_type:copper"
+    MATERIAL_TYPE_FERROUS_METAL = "material_type:ferrous_metals"
+    MATERIAL_TYPE_GLASS = "material_type:glass"
+    MATERIAL_TYPE_HDPE = "material_type:hdpe"
+    MATERIAL_TYPE_LDPE = "material_type:ldpe"
     MATERIAL_TYPE_ORGANIC_FIBERS = "material_type:organic_fibers"
-    MATERIAL_TYPE_OTHER = "material_type:other"
+    MATERIAL_TYPE_PET = "material_type:pet"
+    MATERIAL_TYPE_PP = "material_type:pp"
+    MATERIAL_TYPE_PUR_FOAM = "material_type:pur_foam"
+    MATERIAL_TYPE_PWB = "material_type:pwb"
+    MATERIAL_TYPE_RIGID_PLASTICS = "material_type:rigid_plastics"
+    MATERIAL_TYPE_RUBBER = "material_type:rubber"
     MATERIAL_TYPE_SYNTHETIC_FIBERS = "material_type:synthetic_fibers"
+    MATERIAL_TYPE_WOOD = "material_type:wood"
+
+    # Obsolete material_types
+    MATERIAL_TYPE_METAL = "material_type:metal"
+    MATERIAL_TYPE_OTHER = "material_type:other"
     MATERIAL_TYPE_PLASTIC = "material_type:plastic"
     MATERIAL_TYPE_UPHOLSTERY = "material_type:upholstery"
-    MATERIAL_TYPE_WOOD = "material_type:wood"
+
     PACKAGING = "packaging"
     PACKAGING_TYPE_BAG = "packaging_type:bag"
     PACKAGING_TYPE_BOTTLE = "packaging_type:bottle"

src/Data/Process/Category.elm

@@ -33,12 +33,27 @@ type Category
 
 
 type Material
-    = Metal
+    = Aluminium
+    | BatteryCell
+    | Composites
+    | Containerboard
+    | Copper
+    | FerrousMetal
+    | Glass
+    | HDPE
+    | LDPE
+    | Metal -- obsolete materials
     | OrganicFibers
-    | OtherMaterial
-    | Plastic
+    | OtherMaterial -- obsolete materials
+    | PET
+    | PP
+    | PWB
+    | Plastic -- obsolete materials
+    | PurFoam
+    | RigidPlastics
+    | Rubber
     | SyntheticFibers
-    | Upholstery
+    | Upholstery -- obsolete materials
     | Wood
 
 
@@ -134,24 +149,73 @@ fromString string =
 materialTypeFromString : String -> Result String Material
 materialTypeFromString string =
     case string of
-        "metal" ->
-            Ok Metal
+        "aluminium" ->
+            Ok Aluminium
+
+        "battery_cell" ->
+            Ok BatteryCell
+
+        "composites" ->
+            Ok Composites
+
+        "containerboard" ->
+            Ok Containerboard
+
+        "copper" ->
+            Ok Copper
+
+        "ferrous_metals" ->
+            Ok FerrousMetal
+
+        "glass" ->
+            Ok Glass
+
+        "hdpe" ->
+            Ok HDPE
+
+        "ldpe" ->
+            Ok LDPE
 
         "organic_fibers" ->
             Ok OrganicFibers
 
-        "plastic" ->
-            Ok Plastic
+        "pet" ->
+            Ok PET
+
+        "pp" ->
+            Ok PP
+
+        "pur_foam" ->
+            Ok PurFoam
+
+        "pwb" ->
+            Ok PWB
+
+        "rigid_plastics" ->
+            Ok RigidPlastics
+
+        "rubber" ->
+            Ok Rubber
 
         "synthetic_fibers" ->
             Ok SyntheticFibers
 
-        "upholstery" ->
-            Ok Upholstery
-
         "wood" ->
             Ok Wood
 
+        -- obsolete materials
+        "metal" ->
+            Ok Metal
+
+        -- obsolete materials
+        "plastic" ->
+            Ok Plastic
+
+        -- obsolete materials
+        "upholstery" ->
+            Ok Upholstery
+
+        -- obsolete materials
         "other" ->
             Ok OtherMaterial
 
@@ -162,21 +226,70 @@ materialTypeFromString string =
 materialTypeToLabel : Material -> String
 materialTypeToLabel material =
     case material of
+        Aluminium ->
+            "Aluminium"
+
+        BatteryCell ->
+            "Cellule de batteries"
+
+        Composites ->
+            "Composites"
+
+        Containerboard ->
+            "Carton"
+
+        Copper ->
+            "Cuivre"
+
+        FerrousMetal ->
+            "Métaux ferreux"
+
+        Glass ->
+            "Verre"
+
+        HDPE ->
+            "PEHD"
+
+        LDPE ->
+            "PEBD"
+
+        -- obsolete materials
         Metal ->
             "Métal"
 
         OrganicFibers ->
             "Fibres organiques"
 
+        -- obsolete materials
         OtherMaterial ->
             "Autre type de matière"
 
+        PET ->
+            "PET"
+
+        PP ->
+            "PP"
+
+        PWB ->
+            "Carte de circuit imprimé"
+
+        -- obsolete materials
         Plastic ->
             "Plastique"
 
+        PurFoam ->
+            "PUR"
+
+        RigidPlastics ->
+            "Plastiques rigides"
+
+        Rubber ->
+            "Caoutchouc"
+
         SyntheticFibers ->
             "Fibres synthétiques"
 
+        -- obsolete materials
         Upholstery ->
             "Mousses et rembourrés"
 
@@ -187,21 +300,70 @@ materialTypeToLabel material =
 materialTypeToString : Material -> String
 materialTypeToString material =
     case material of
+        Aluminium ->
+            "aluminium"
+
+        BatteryCell ->
+            "battery_cell"
+
+        Composites ->
+            "composites"
+
+        Containerboard ->
+            "containerboard"
+
+        Copper ->
+            "copper"
+
+        FerrousMetal ->
+            "ferrous_metals"
+
+        Glass ->
+            "glass"
+
+        HDPE ->
+            "hdpe"
+
+        LDPE ->
+            "ldpe"
+
+        -- obsolete materials
         Metal ->
             "metal"
 
         OrganicFibers ->
             "organic_fibers"
 
+        -- obsolete materials
         OtherMaterial ->
             "other"
 
+        PET ->
+            "pet"
+
+        PP ->
+            "pp"
+
+        PWB ->
+            "pwb"
+
+        -- obsolete materials
         Plastic ->
             "plastic"
 
+        PurFoam ->
+            "pur_foam"
+
+        RigidPlastics ->
+            "rigid_plastics"
+
+        Rubber ->
+            "rubber"
+
         SyntheticFibers ->
             "synthetic_fibers"
 
+        -- obsolete materials
         Upholstery ->
             "upholstery"