diff options
| author | Pierre-Marie Pédrot | 2016-09-21 13:59:35 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-09-21 13:59:35 +0200 |
| commit | bd81eaef87c5eb3a5d5bf398e151235e4e5c81a1 (patch) | |
| tree | 72246effa2d991b2370aa77f7f8f00ce5fe6c395 /interp/topconstr.ml | |
| parent | 9c352481f1a2d3a9c2e0e1f084d1c65521a0c438 (diff) | |
Fix an error-prone error API.
Diffstat (limited to 'interp/topconstr.ml')
| -rw-r--r-- | interp/topconstr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/topconstr.ml b/interp/topconstr.ml index 0f894019b0..eb564f3b32 100644 --- a/interp/topconstr.ml +++ b/interp/topconstr.ml @@ -32,7 +32,7 @@ let _ = Goptions.declare_bool_option { (**********************************************************************) (* Miscellaneous *) -let error_invalid_pattern_notation ?loc = +let error_invalid_pattern_notation ?loc () = user_err ?loc (str "Invalid notation for pattern.") (**********************************************************************) |