X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FGeneral.v;h=53e37537cd009ec46e96bdca00f01cb0463a39c7;hp=7af9f9762b38781d9974ed0356fcb155743060d8;hb=4edce334b28e694c711dfb8e331d737bd0310fe2;hpb=1c04ba6aca5e5ce92bd1a9537c334a0103d96465

diff --git a/src/General.v b/src/General.v
index 7af9f97..53e3753 100644
--- a/src/General.v
+++ b/src/General.v
@@ -1024,7 +1024,7 @@ Definition orErrorBindWithMessage {T:Type} (oe:OrError T) {Q:Type} (f:T -> OrErr
 Notation "a >>=[ S ] b" := (@orErrorBindWithMessage _ a _ b S) (at level 20).
 
 Definition addErrorMessage s {T} (x:OrError T) :=
-  x >>=[ s ] (fun y => OK y).
+  x >>=[ eol +++ eol +++ s ] (fun y => OK y).
 
 Inductive Indexed {T:Type}(f:T -> Type) : ???T -> Type :=
 | Indexed_Error : forall error_message:string, Indexed f (Error error_message)