Alpha: minor fixes

src/lib_shell_services/block_services.ml

@@ -744,14 +744,6 @@ module Make(Proto : PROTO)(Next_proto : PROTO) = struct
           ~output: Data_encoding.empty
           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
 
     let live_blocks =

src/lib_shell_services/block_services.mli

@@ -427,11 +427,6 @@ module Make(Proto : PROTO)(Next_proto : PROTO) : sig
         ([ `POST ], 'a,
          '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
 
     val live_blocks:

src/proto_alpha/lib_protocol/src/main.ml

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