aboutsummaryrefslogtreecommitdiffhomepage
path: root/engine
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2018-02-12 10:57:39 +0100
committerGravatar Maxime Dénès <mail@maximedenes.fr>2018-02-12 10:57:39 +0100
commit52d666a7a83e4023d9f5cd7324ed81c7f7926156 (patch)
tree8b5254efb09a55260cd3de9bea9ae07bf4a10a02 /engine
parent67b6583a2cc430c9584e259a00ff6b28347d5b55 (diff)
parent33789b2d1706194d478a25098bd1991d2c845223 (diff)
Merge PR #6262: [error] Replace msg_error by a proper exception.
Diffstat (limited to 'engine')
-rw-r--r--engine/logic_monad.ml1
-rw-r--r--engine/logic_monad.mli1
2 files changed, 0 insertions, 2 deletions
diff --git a/engine/logic_monad.ml b/engine/logic_monad.ml
index 9dc5d473b..3674bb943 100644
--- a/engine/logic_monad.ml
+++ b/engine/logic_monad.ml
@@ -107,7 +107,6 @@ struct
let print_debug s = make (fun _ -> Feedback.msg_info s)
let print_info s = make (fun _ -> Feedback.msg_info s)
let print_warning s = make (fun _ -> Feedback.msg_warning s)
- let print_error s = make (fun _ -> Feedback.msg_error s)
let print_notice s = make (fun _ -> Feedback.msg_notice s)
let run = fun x ->
diff --git a/engine/logic_monad.mli b/engine/logic_monad.mli
index 8c8f9fe93..50b4abd8b 100644
--- a/engine/logic_monad.mli
+++ b/engine/logic_monad.mli
@@ -61,7 +61,6 @@ module NonLogical : sig
val print_warning : Pp.t -> unit t
val print_notice : Pp.t -> unit t
val print_info : Pp.t -> unit t
- val print_error : Pp.t -> unit t
(** [Pervasives.raise]. Except that exceptions are wrapped with
{!Exception}. *)