aboutsummaryrefslogtreecommitdiffhomepage
path: root/stm
diff options
context:
space:
mode:
authorGravatar Enrico Tassi <Enrico.Tassi@inria.fr>2014-09-09 13:11:16 +0200
committerGravatar Enrico Tassi <Enrico.Tassi@inria.fr>2014-09-09 13:11:38 +0200
commitba30a3da1f41aec6404b49832cdc8516fdcc78ec (patch)
tree413ea748445c8e53d20c2dc551cfa6a39ba363f6 /stm
parent6129d83ad15799b6b9318a1c4fa5fc73ddbb5ad9 (diff)
Marshalling errors should be bold and red (should never happen actually)
Diffstat (limited to 'stm')
-rw-r--r--stm/stm.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/stm.ml b/stm/stm.ml
index da2d0fb38..e5e156a4d 100644
--- a/stm/stm.ml
+++ b/stm/stm.ml
@@ -817,7 +817,7 @@ module Task = struct
let on_marshal_error s { t_exn_info; t_stop; t_assign; t_loc } =
if !fallback_to_lazy_if_marshal_error then begin
- msg_warning(strbrk("Marshalling error: "^s^". "^
+ msg_error(strbrk("Marshalling error: "^s^". "^
"The system state could not be sent to the worker process. "^
"Falling back to local, lazy, evaluation."));
t_assign(`Comp(build_proof_here t_exn_info t_loc t_stop));