diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2016-10-25 13:47:45 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2016-10-27 10:12:55 +0200 |
| commit | ebb5bd7c2048daa7241bb07d8b53d07e0be27e62 (patch) | |
| tree | a0fab361782eaef44416cb100847a5f711f2679b | |
| parent | 6ecb796d462896a19212bcc5b8c0036833c6c85f (diff) | |
Add missing dot to impargs error message.
| -rw-r--r-- | library/impargs.ml | 2 | ||||
| -rw-r--r-- | test-suite/output/Arguments_renaming.out | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index 13816edb1..828d652c8 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -659,7 +659,7 @@ let check_inclusion l = let rec aux = function | n1::(n2::_ as nl) -> if n1 <= n2 then - error "Sequences of implicit arguments must be of different lengths"; + error "Sequences of implicit arguments must be of different lengths."; aux nl | _ -> () in aux (List.map (fun (imps,_) -> List.length imps) l) diff --git a/test-suite/output/Arguments_renaming.out b/test-suite/output/Arguments_renaming.out index 8c5efcd89..9d90de47c 100644 --- a/test-suite/output/Arguments_renaming.out +++ b/test-suite/output/Arguments_renaming.out @@ -106,7 +106,7 @@ Expands to: Constant Top.myplus The command has indeed failed with message: Error: Arguments lists should agree on names they provide. The command has indeed failed with message: -Error: Sequences of implicit arguments must be of different lengths +Error: Sequences of implicit arguments must be of different lengths. The command has indeed failed with message: Error: Arguments names must be distinct. The command has indeed failed with message: |