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

Alpha: minor fixes

Browse Source
This commit is contained in:
Grégoire Henry 2018-11-23 22:14:22 +01:00 committed by Pierre Boutillier
parent fa4b33aa47
commit 3b46f49651
No known key found for this signature in database
GPG Key ID: C2F73508B56A193C
3 changed files with 3 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/lib_shell_services/block_services.ml
View File

@ -744,14 +744,6 @@ module Make(Proto : PROTO)(Next_proto : PROTO) = struct
~output: Data_encoding.empty ~output: Data_encoding.empty
RPC_path.(path / "request_operations") RPC_path.(path / "request_operations")
let request_operations path =
RPC_service.post_service
~description:"Request the operations of your peers."
~input: Data_encoding.empty
~query: RPC_query.empty
~output: Data_encoding.empty
RPC_path.(path / "request_operations")
end end
let live_blocks = let live_blocks =

5
src/lib_shell_services/block_services.mli
View File

@ -427,11 +427,6 @@ module Make(Proto : PROTO)(Next_proto : PROTO) : sig
([ `POST ], 'a, ([ `POST ], 'a,
'b , unit, unit, unit) RPC_service.t 'b , unit, unit, unit) RPC_service.t
val request_operations :
('a, 'b) RPC_path.t ->
([ `POST ], 'a,
'b , unit, unit, unit) RPC_service.t
end end
val live_blocks: val live_blocks:

6
src/proto_alpha/lib_protocol/src/main.ml
View File

@ -194,10 +194,10 @@ let apply_operation
in in
let partial = let partial =
match mode with match mode with
| Partial_construction _ | Partial_construction _ -> true
| Partial_application _ -> true
| Application _ | Application _
| Full_construction _ -> false in | Full_construction _
| Partial_application _ -> false in
Apply.apply_operation ~partial ctxt chain_id Optimized predecessor baker Apply.apply_operation ~partial ctxt chain_id Optimized predecessor baker
(Alpha_context.Operation.hash operation) (Alpha_context.Operation.hash operation)
operation >>=? fun (ctxt, result) -> operation >>=? fun (ctxt, result) ->