From c981391128163f97269ff2cf66fd67ca0417677b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Gr=C3=A9goire=20Henry?= Date: Tue, 20 Nov 2018 19:01:21 +0100 Subject: [PATCH] Alpha: fix indent --- src/proto_alpha/lib_protocol/src/apply.ml | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/proto_alpha/lib_protocol/src/apply.ml b/src/proto_alpha/lib_protocol/src/apply.ml index 7c80b0d7f..2aa67974c 100644 --- a/src/proto_alpha/lib_protocol/src/apply.ml +++ b/src/proto_alpha/lib_protocol/src/apply.ml @@ -578,15 +578,15 @@ let apply_manager_contents | Ok (ctxt, operation_results, internal_operations) -> begin apply_internal_manager_operations ctxt mode ~payer:source internal_operations >>= function - | (`Success ctxt, internal_operations_results) -> - Fees.burn_storage_fees ctxt ~storage_limit ~payer:source >>= begin function - | Ok ctxt -> - Lwt.return - (`Success ctxt, Applied operation_results, internal_operations_results) - | Error errors -> - Lwt.return - (`Failure, Backtracked (operation_results, Some errors), internal_operations_results) - end + | (`Success ctxt, internal_operations_results) -> begin + Fees.burn_storage_fees ctxt ~storage_limit ~payer:source >>= function + | Ok ctxt -> + Lwt.return + (`Success ctxt, Applied operation_results, internal_operations_results) + | Error errors -> + Lwt.return + (`Failure, Backtracked (operation_results, Some errors), internal_operations_results) + end | (`Failure, internal_operations_results) -> Lwt.return (`Failure, Applied operation_results, internal_operations_results)