diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-09 12:41:19 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-09 12:41:19 +0000 |
| commit | 5053ccc561dd1416a788b5e000049b7e51826a7e (patch) | |
| tree | cde13ab8805732e8a030525aa8c5cf2a402bd2ba /checker/validate.ml | |
| parent | ed18331f31fe2da5215a2548527e2b877f0b722f (diff) | |
checker validation made a bit more verbose
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16690 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/validate.ml')
| -rw-r--r-- | checker/validate.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/validate.ml b/checker/validate.ml index b0c1704ee..f1b3fbe42 100644 --- a/checker/validate.ml +++ b/checker/validate.ml @@ -69,7 +69,7 @@ let rec val_gen v ctx o = match v with (try val_tag Obj.string_tag ctx o with Failure _ -> fail ctx o "expected a string") | Any -> () - | Fail -> fail ctx o "unexpected object" + | Fail s -> fail ctx o ("unexpected object " ^ s) | Annot (s,v) -> val_gen v (ctx/s) o (* Check that an object is a tuple (or a record). vs is an array of |