diff options
| author | Hugo Herbelin | 2014-10-08 17:37:04 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-10-08 17:38:30 +0200 |
| commit | 335cf2860bfd9e714d14228d75a52fd2c88db386 (patch) | |
| tree | a98342c8cb93c451bf3484a9647639ed64c16f77 | |
| parent | ae2f727766063e5ca4660a4f4c0c3e7ffd05f2d4 (diff) | |
Applying Virgile Prevosto's patch for better error report in coqdep (#3029).
| -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 a44f159b46..08c42b7eb8 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 |