diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-08 17:37:04 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-08 17:38:30 +0200 |
commit | 335cf2860bfd9e714d14228d75a52fd2c88db386 (patch) | |
tree | a98342c8cb93c451bf3484a9647639ed64c16f77 /tools/coqdep.ml | |
parent | ae2f727766063e5ca4660a4f4c0c3e7ffd05f2d4 (diff) |
Applying Virgile Prevosto's patch for better error report in coqdep (#3029).
Diffstat (limited to 'tools/coqdep.ml')
-rw-r--r-- | tools/coqdep.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tools/coqdep.ml b/tools/coqdep.ml index a44f159b4..08c42b7eb 100644 --- a/tools/coqdep.ml +++ b/tools/coqdep.ml @@ -512,4 +512,9 @@ let coqdep () = with e -> close_out chan; raise e end -let _ = Printexc.catch coqdep () +let _ = + try + coqdep () + with Errors.UserError(s,p) -> + let pp = if s <> "_" then Pp.(str s ++ str ": " ++ p) else p in + Pp.msgerrnl pp |