projects
/
coq-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
489b12c
)
addErrorMessage: put blank lines between messages
author
Adam Megacz
<megacz@cs.berkeley.edu>
Mon, 4 Jul 2011 07:33:11 +0000
(
00:33
-0700)
committer
Adam Megacz
<megacz@cs.berkeley.edu>
Mon, 4 Jul 2011 07:33:11 +0000
(
00:33
-0700)
src/General.v
patch
|
blob
|
history
diff --git
a/src/General.v
b/src/General.v
index
7af9f97
..
53e3753
100644
(file)
--- 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)