diff options
Diffstat (limited to 'toplevel/himsg.ml')
| -rw-r--r-- | toplevel/himsg.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 69eb5f2a6f..c528eba95d 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -478,8 +478,9 @@ let explain_bad_constructor ctx cstr ind = let explain_wrong_numarg_of_constructor ctx cstr n = let pc = pr_constructor ctx cstr in - [<'sTR "The constructor "; pc; 'sTR " expects " ; + [<'sTR "The constructor "; pc; 'sTR " expects " ; if n = 0 then [< 'sTR "no argument.">] + else if n = 1 then [< 'sTR "1 argument.">] else [< 'iNT n ; 'sTR " arguments.">] >] |