diff options
| author | Hugo Herbelin | 2015-02-20 13:49:50 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2015-02-20 17:36:50 +0100 |
| commit | 60411f0438740ffd8c6fc5b78875f41b3c5705ae (patch) | |
| tree | 68e6aee3cbdb68263e38ec931b55fa9d0bc2ddf0 | |
| parent | faefff6dc380021b3a910bfa815899ce15f8012b (diff) | |
An answer to #4070 (message for implicit arguments of inl not clear).
| -rw-r--r-- | printing/prettyp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/prettyp.ml b/printing/prettyp.ml index 223377c277..d0f50ee27c 100644 --- a/printing/prettyp.ml +++ b/printing/prettyp.ml @@ -109,7 +109,7 @@ let print_impargs_list prefix l = [(if ismt prefix then str "When" else prefix ++ str ", when") ++ str " applied to " ++ (if Int.equal n1 n2 then int_or_no n2 else - if Int.equal n1 0 then str "less than " ++ int n2 + if Int.equal n1 0 then str "less than or to " ++ int n2 else int n1 ++ str " to " ++ int_or_no n2) ++ str (String.plural n2 " argument") ++ str ":"; v 0 (prlist_with_sep cut (fun x -> x) |