diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-05-30 08:10:42 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-05-30 08:10:42 +0200 |
| commit | ba3ccf80a44f0e06ee6e622a30f99de6804d005e (patch) | |
| tree | e070e15d3e6cb54ba97601d938711cad7df64299 /plugins/extraction/haskell.ml | |
| parent | 0336d4d19d446315cb922149b8ee4e7885843be0 (diff) | |
| parent | b30a6b141fed01a62330051bfb92c19564c93215 (diff) | |
Merge PR#692: Fail on deprecated warning even for Ocaml > 4.02.3
Diffstat (limited to 'plugins/extraction/haskell.ml')
| -rw-r--r-- | plugins/extraction/haskell.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/extraction/haskell.ml b/plugins/extraction/haskell.ml index b580fb592..eb13fd675 100644 --- a/plugins/extraction/haskell.ml +++ b/plugins/extraction/haskell.ml @@ -20,9 +20,10 @@ open Mlutil open Common (*s Haskell renaming issues. *) - +[@@@ocaml.warning "-3"] (* String.(un)capitalize_ascii since 4.03.0 GPR#124 *) let pr_lower_id id = str (String.uncapitalize (Id.to_string id)) let pr_upper_id id = str (String.capitalize (Id.to_string id)) +[@@@ocaml.warning "+3"] let keywords = List.fold_right (fun s -> Id.Set.add (Id.of_string s)) |