Commit 8fb15f6c authored by Eugene Mishura's avatar Eugene Mishura

simplified inlined lambda expressions

parent e47fe3e9
Pipeline #148749885 passed with stage
in 49 seconds
......@@ -31,9 +31,7 @@ let transfer_descriptor_param_to_michelson (p : transfer_descriptor_param)
let aux : transfer_descriptor_param_aux = {
fa2 = p.fa2;
operator = p.operator;
batch = List.map
(fun (td: transfer_descriptor) -> transfer_descriptor_to_michelson td)
p.batch;
batch = List.map transfer_descriptor_to_michelson p.batch;
} in
Layout.convert_to_right_comb aux
......@@ -53,11 +51,8 @@ let transfer_descriptor_from_michelson (p : transfer_descriptor_michelson) : tra
let transfer_descriptor_param_from_michelson (p : transfer_descriptor_param_michelson)
: transfer_descriptor_param =
let aux : transfer_descriptor_param_aux = Layout.convert_from_right_comb p in
let b : transfer_descriptor list = List.map
(fun (tdm : transfer_descriptor_michelson) ->
transfer_descriptor_from_michelson tdm
)
aux.batch
let b : transfer_descriptor list =
List.map transfer_descriptor_from_michelson aux.batch
in
{
fa2 = aux.fa2;
......@@ -78,11 +73,7 @@ let transfer_from_michelson (txm : transfer_michelson) : transfer =
}
let transfers_from_michelson (txsm : transfer_michelson list) : transfer list =
List.map
(fun (txm: transfer_michelson) ->
let tx : transfer = transfer_from_michelson txm in
tx
) txsm
List.map transfer_from_michelson txsm
let operator_param_from_michelson (p : operator_param_michelson) : operator_param =
let op : operator_param = Layout.convert_from_right_comb p in
......@@ -104,7 +95,6 @@ let operator_update_to_michelson (uo : update_operator) : update_operator_michel
in
Layout.convert_to_right_comb aux
(* check this *)
let operator_updates_from_michelson (updates_michelson : update_operator_michelson list)
: update_operator list =
List.map operator_update_from_michelson updates_michelson
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment