balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Alpha: fix indent

Browse Source
This commit is contained in:
Grégoire Henry 2018-11-20 19:01:21 +01:00 committed by Pierre Boutillier
parent 6510869b73
commit c981391128
No known key found for this signature in database
GPG Key ID: C2F73508B56A193C
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/proto_alpha/lib_protocol/src/apply.ml
View File

@ -578,15 +578,15 @@ let apply_manager_contents
| Ok (ctxt, operation_results, internal_operations) -> begin | Ok (ctxt, operation_results, internal_operations) -> begin
apply_internal_manager_operations apply_internal_manager_operations
ctxt mode ~payer:source internal_operations >>= function ctxt mode ~payer:source internal_operations >>= function
| (`Success ctxt, internal_operations_results) -> | (`Success ctxt, internal_operations_results) -> begin
Fees.burn_storage_fees ctxt ~storage_limit ~payer:source >>= begin function Fees.burn_storage_fees ctxt ~storage_limit ~payer:source >>= function
| Ok ctxt -> | Ok ctxt ->
Lwt.return Lwt.return
(`Success ctxt, Applied operation_results, internal_operations_results) (`Success ctxt, Applied operation_results, internal_operations_results)
| Error errors -> | Error errors ->
Lwt.return Lwt.return
(`Failure, Backtracked (operation_results, Some errors), internal_operations_results) (`Failure, Backtracked (operation_results, Some errors), internal_operations_results)
end end
| (`Failure, internal_operations_results) -> | (`Failure, internal_operations_results) ->
Lwt.return Lwt.return
(`Failure, Applied operation_results, internal_operations_results) (`Failure, Applied operation_results, internal_operations_results)