diff options
| author | Damien Doligez <damien.doligez@inria.fr> | 2016-02-16 13:23:31 +0100 |
|---|---|---|
| committer | Damien Doligez <damien.doligez@inria.fr> | 2016-02-17 13:36:27 +0100 |
| commit | ee8f71101b80496b2ec2c996d29ac33bbaf7cf00 (patch) | |
| tree | a1a3a4ff49290bc0f99a026eabe8184934b4622e /parsing/builtin_attributes.ml | |
| parent | 2a3e2176ebf34975972df7b89dc24ff00fc8068d (diff) | |
| download | ocaml-ee8f71101b80496b2ec2c996d29ac33bbaf7cf00.tar.gz | |
clean up whitespace and cut long lines
Diffstat (limited to 'parsing/builtin_attributes.ml')
| -rwxr-xr-x | parsing/builtin_attributes.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/parsing/builtin_attributes.ml b/parsing/builtin_attributes.ml index e9d0fa9169..b213f2611d 100755 --- a/parsing/builtin_attributes.ml +++ b/parsing/builtin_attributes.ml @@ -63,7 +63,8 @@ let check_deprecated loc attrs s = match deprecated_of_attrs attrs with | None -> () | Some "" -> Location.prerr_warning loc (Warnings.Deprecated s) - | Some txt -> Location.prerr_warning loc (Warnings.Deprecated (s ^ "\n" ^ txt)) + | Some txt -> + Location.prerr_warning loc (Warnings.Deprecated (s ^ "\n" ^ txt)) let rec check_deprecated_mutable loc attrs s = match attrs with @@ -173,7 +174,8 @@ let with_warning_attribute attrs f = let warn_on_literal_pattern = List.exists (function - | ({txt="ocaml.warn_on_literal_pattern"|"warn_on_literal_pattern"; _}, _) -> true + | ({txt="ocaml.warn_on_literal_pattern"|"warn_on_literal_pattern"; _}, _) + -> true | _ -> false ) |