From 4edce334b28e694c711dfb8e331d737bd0310fe2 Mon Sep 17 00:00:00 2001 From: Adam Megacz Date: Mon, 4 Jul 2011 00:33:11 -0700 Subject: [PATCH] addErrorMessage: put blank lines between messages --- src/General.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4