Implement contracts

model/src/lu/foyer/contracts/Employee.scala

@@ -0,0 +1,11 @@
+package lu.foyer
+package contracts
+
+import zio.schema.*
+import java.util.Currency
+
+opaque type EmployeeDisplayName <: String = String
+object EmployeeDisplayName extends NonBlankString[EmployeeDisplayName]
+
+final case class Employee(uid: String, displayName: EmployeeDisplayName, email: Email)
+    derives Schema

model/src/lu/foyer/contracts/FormulaType.scala

@@ -0,0 +1,27 @@
+package lu.foyer
+package contracts
+
+import zio.schema.*
+
+enum FormulaType(val maxCoverage: Long, val basePremium: BigDecimal):
+  case Bronze extends FormulaType(10_000, 600)
+  case Silver extends FormulaType(25_000, 900)
+  case Gold   extends FormulaType(250_000, 1500)
+
+object FormulaType:
+  enum Json:
+    case bronze, silver, gold
+
+  given Schema[FormulaType] = DeriveSchema
+    .gen[Json].transform(
+      {
+        case Json.bronze => FormulaType.Bronze
+        case Json.silver => FormulaType.Silver
+        case Json.gold   => FormulaType.Gold
+      },
+      {
+        case FormulaType.Bronze => Json.bronze
+        case FormulaType.Silver => Json.silver
+        case FormulaType.Gold   => Json.gold
+      }
+    )

model/src/lu/foyer/contracts/ProductType.scala

@@ -0,0 +1,8 @@
+package lu.foyer
+package contracts
+
+import zio.schema.*
+import zio.schema.annotation.caseName
+
+enum ProductType derives Schema:
+  @caseName("car") case Car

model/src/lu/foyer/contracts/TerminationReasonType.scala

@@ -0,0 +1,7 @@
+package lu.foyer
+package contracts
+
+import zio.schema.*
+
+enum TerminationReasonType derives Schema:
+  case Rejected, HolderDeceased, TerminatedByClient

model/src/lu/foyer/contracts/Vehicle.scala

@@ -0,0 +1,16 @@
+package lu.foyer
+package contracts
+
+import zio.schema.*
+import java.util.Currency
+
+opaque type VehiclePlate <: String = String
+object VehiclePlate extends NonBlankString[VehiclePlate]
+
+opaque type VehicleBrand <: String = String
+object VehicleBrand extends NonBlankString[VehicleBrand]
+
+final case class Amount(value: BigDecimal, currency: Currency) derives Schema
+
+final case class Vehicle(plate: VehiclePlate, brand: VehicleBrand, insuredValue: Amount)
+    derives Schema