vault backup: 2023-09-11 16:24:38

This commit is contained in:
Louis Gallet 2023-09-11 16:24:38 +02:00
parent 226cb54ea1
commit 72e4d772ee
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";;