diff options
| author | Pierre Weis <Pierre.Weis@inria.fr> | 2011-10-28 21:24:27 +0000 |
|---|---|---|
| committer | Pierre Weis <Pierre.Weis@inria.fr> | 2011-10-28 21:24:27 +0000 |
| commit | 67e74dbb61fcb4f789e85ebf0b7d2732ba8127be (patch) | |
| tree | 559c0f8e3faeb050d023b0ccfd8b6025e8eaa008 | |
| parent | 87946c9536441f7af6a594b32bb2a17d19abd374 (diff) | |
Get rid of spurious warnings
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@11253 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | parsing/printast.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/parsing/printast.ml b/parsing/printast.ml index 713295f6f..6329f5302 100644 --- a/parsing/printast.ml +++ b/parsing/printast.ml @@ -96,7 +96,7 @@ let line i f s (*...*) = let list i f ppf l = match l with | [] -> line i ppf "[]\n"; - | h::t -> + | _ :: _ -> line i ppf "[\n"; List.iter (f (i+1) ppf) l; line i ppf "]\n"; @@ -152,7 +152,7 @@ let rec core_type i ppf x = core_type i ppf ct; | Ptyp_package (s, l) -> line i ppf "Ptyp_package %a\n" fmt_longident s; - list i package_with ppf l + list i package_with ppf l; and package_with i ppf (s, t) = line i ppf "with type %s\n" s; @@ -524,7 +524,7 @@ and module_type i ppf x = list i longident_x_with_constraint ppf l; | Pmty_typeof m -> line i ppf "Pmty_typeof\n"; - module_expr i ppf m + module_expr i ppf m; and signature i ppf x = list i signature_item ppf x |