diff options
| author | Pierre Letouzey | 2017-02-07 23:28:36 +0100 |
|---|---|---|
| committer | Pierre Letouzey | 2017-02-07 23:28:36 +0100 |
| commit | 3550120641c3b8d84290dc950e717aaf099775f9 (patch) | |
| tree | 18381a0e6638a988acacce3cd51836d1641fb280 /plugins/extraction/haskell.ml | |
| parent | df14dac0e6e9d9819dcc3b1601e150af7c142597 (diff) | |
Revert "Extraction: avoid deprecated functions of module String"
This reverts commit 69c4e7cfa0271f024b2178082e4be2e3ca3be263.
String.capitalize_ascii are only available for ocaml >= 4.03, sorry...
Diffstat (limited to 'plugins/extraction/haskell.ml')
| -rw-r--r-- | plugins/extraction/haskell.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/extraction/haskell.ml b/plugins/extraction/haskell.ml index 83bb2e135e..0692c88cd1 100644 --- a/plugins/extraction/haskell.ml +++ b/plugins/extraction/haskell.ml @@ -21,8 +21,8 @@ open Common (*s Haskell renaming issues. *) -let pr_lower_id id = str (String.uncapitalize_ascii (Id.to_string id)) -let pr_upper_id id = str (String.capitalize_ascii (Id.to_string id)) +let pr_lower_id id = str (String.uncapitalize (Id.to_string id)) +let pr_upper_id id = str (String.capitalize (Id.to_string id)) let keywords = List.fold_right (fun s -> Id.Set.add (Id.of_string s)) |