Remove unused open

This commit is contained in:
Milo Davis 2017-10-27 21:08:10 +02:00 committed by Benjamin Canou
parent c40d6f0a55
commit 26b05ae292

View File

@ -1,5 +1,4 @@
open Data_encoding open Data_encoding
open Context
open Hash open Hash
open Error_monad open Error_monad
@ -436,7 +435,7 @@ let test_splitted _ =
Assert.equal ~msg:__LOC__ "44" (get_result ~msg:__LOC__ binB); Assert.equal ~msg:__LOC__ "44" (get_result ~msg:__LOC__ binB);
Lwt.return_unit Lwt.return_unit
let wrap_test f base_dir = let wrap_test f base_dir =
f base_dir >>= fun result -> f base_dir >>= fun result ->
return result return result