11 lines
295 B
Plaintext
11 lines
295 B
Plaintext
let f1 (x : unit) : unit -> tez =
|
|
let amt : tez = Current.amount
|
|
in fun (x : unit) -> amt
|
|
|
|
let f2 (x : unit) : unit -> tez =
|
|
fun (x : unit) -> Current.amount
|
|
|
|
let main (b, s : bool * (unit -> tez))
|
|
: operation list * (unit -> tez) =
|
|
(([] : operation list), (if b then f1 () else f2 ()))
|