From 015230f8842e5cce8515155475883f4390c308e3 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= Date: Tue, 18 Aug 2020 10:52:09 +0200 Subject: [PATCH] Error_monad: remove dead-code --- src/lib_error_monad/error_monad.ml | 10 ---------- src/lib_error_monad/error_monad.mli | 8 -------- 2 files changed, 18 deletions(-) diff --git a/src/lib_error_monad/error_monad.ml b/src/lib_error_monad/error_monad.ml index 8fdc5361f41a..cb51423ef86c 100644 --- a/src/lib_error_monad/error_monad.ml +++ b/src/lib_error_monad/error_monad.ml @@ -33,16 +33,6 @@ type error_category = [`Branch | `Temporary | `Permanent] include Core include Monad -module Make (Prefix : Sig.PREFIX) : sig - include Sig.CORE - - include Sig.EXT with type error := error - - include Sig.WITH_WRAPPED with type error := error -end = struct - include Core_maker.Make (Prefix) -end - type error += Exn of exn let () = diff --git a/src/lib_error_monad/error_monad.mli b/src/lib_error_monad/error_monad.mli index aa1a589ae8c6..54515d4cfc47 100644 --- a/src/lib_error_monad/error_monad.mli +++ b/src/lib_error_monad/error_monad.mli @@ -95,14 +95,6 @@ val with_timeout : (Lwt_canceler.t -> 'a tzresult Lwt.t) -> 'a tzresult Lwt.t -module Make (Prefix : Sig.PREFIX) : sig - include Sig.CORE - - include Sig.EXT with type error := error - - include Sig.WITH_WRAPPED with type error := error -end - (**/**) val errs_tag : trace Tag.def -- GitLab