vault backup: 2023-09-11 16:28:29

This commit is contained in:
Louis Gallet 2023-09-11 16:28:29 +02:00
parent 72e4d772ee
commit f9b8d8cecb
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY

View File

@ -197,7 +197,7 @@ val rate_standart : int -> float = <fun>
val rate_express : int -> float = <fun>
# let rate rt kg = match rt with
| x when x = "economic" -> rate_eco(kg)
| ^x when x = "economic" -> rate_eco(kg)
| x when x = "standard" -> rate_standard(kg)
| x when x = "express" -> rate_express(kg)
| _ -> invalid_arg "Bad type of shipping class";;