vault backup: 2023-09-11 16:28:29
This commit is contained in:
parent
72e4d772ee
commit
f9b8d8cecb
@ -197,7 +197,7 @@ val rate_standart : int -> float = <fun>
|
|||||||
val rate_express : int -> float = <fun>
|
val rate_express : int -> float = <fun>
|
||||||
|
|
||||||
# let rate rt kg = match rt with
|
# 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 = "standard" -> rate_standard(kg)
|
||||||
| x when x = "express" -> rate_express(kg)
|
| x when x = "express" -> rate_express(kg)
|
||||||
| _ -> invalid_arg "Bad type of shipping class";;
|
| _ -> invalid_arg "Bad type of shipping class";;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user