2020-04-18 00:13:50 +02:00
|
|
|
type storage = (int,"foo",string,"bar") michelson_or
|
|
|
|
|
type foobar = (int,"baz", int, "fooo" ) michelson_or
|
2020-03-30 13:20:14 +02:00
|
|
|
|
|
|
|
|
type return = operation list * storage
|
|
|
|
|
|
|
|
|
|
let main (action, store : unit * storage) : return =
|
|
|
|
|
let foo = (M_right ("one") : storage) in
|
|
|
|
|
let bar = (M_right 1 : foobar) in
|
|
|
|
|
(([] : operation list), (foo: storage))
|
