From 5400984c3685b2779b976fa531f05dba77207f0f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= Date: Tue, 6 Nov 2018 18:26:00 +0800 Subject: [PATCH] Fix CI: remove unneeded `open`s --- src/lib_shell/prevalidator.ml | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/lib_shell/prevalidator.ml b/src/lib_shell/prevalidator.ml index 97c5d8427..48d8a77a5 100644 --- a/src/lib_shell/prevalidator.ml +++ b/src/lib_shell/prevalidator.ml @@ -354,7 +354,6 @@ module Make(Proto: Registered_protocol.T)(Arg: ARG): T = struct | Error errors -> refused (Operation.hash op) op errors | Ok op -> - let open Preapply_result in Prevalidation.apply_operation state op >>= function | Applied (new_acc_validation_state, _) -> if pv.applied_count <= 2000 (* this test is a quick fix while we wait for the new mempool *) @@ -463,7 +462,6 @@ module Make(Proto: Registered_protocol.T)(Arg: ARG): T = struct dir := RPC_directory.gen_register !dir (Proto_services.S.Mempool.monitor_operations RPC_path.open_root) begin fun { applied ; refusals = refused ; branch_refusals = branch_refused ; branch_delays = branch_delayed ; operation_stream } params () -> - let open Preapply_result in let op_stream, stopper = Lwt_watcher.create_stream operation_stream in (* Convert ops *) let map_op op =