From ad005b7d96441826a6fad1f6473ce69d11f53ca4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Wed, 3 Apr 2019 15:53:16 +0200 Subject: Don't use string:lowercase yet, not available in OTP-19 --- src/cow_mimetypes.erl | 6 ++++-- src/cow_mimetypes.erl.src | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/cow_mimetypes.erl b/src/cow_mimetypes.erl index 35f4c5f..07fc69f 100644 --- a/src/cow_mimetypes.erl +++ b/src/cow_mimetypes.erl @@ -23,7 +23,8 @@ all(Path) -> case filename:extension(Path) of <<>> -> {<<"application">>, <<"octet-stream">>, []}; - << $., Ext/binary >> -> all_ext(string:lowercase(Ext)) + %% @todo Convert to string:lowercase on OTP-20+. + << $., Ext/binary >> -> all_ext(list_to_binary(string:to_lower(binary_to_list(Ext)))) end. %% @doc Return the mimetype for a Web related file by looking at its extension. @@ -32,7 +33,8 @@ all(Path) -> web(Path) -> case filename:extension(Path) of <<>> -> {<<"application">>, <<"octet-stream">>, []}; - << $., Ext/binary >> -> web_ext(string:lowercase(Ext)) + %% @todo Convert to string:lowercase on OTP-20+. + << $., Ext/binary >> -> web_ext(list_to_binary(string:to_lower(binary_to_list(Ext)))) end. %% Internal. diff --git a/src/cow_mimetypes.erl.src b/src/cow_mimetypes.erl.src index dafbbde..2c57834 100644 --- a/src/cow_mimetypes.erl.src +++ b/src/cow_mimetypes.erl.src @@ -23,7 +23,8 @@ all(Path) -> case filename:extension(Path) of <<>> -> {<<"application">>, <<"octet-stream">>, []}; - << $., Ext/binary >> -> all_ext(string:lowercase(Ext)) + %% @todo Convert to string:lowercase on OTP-20+. + << $., Ext/binary >> -> all_ext(list_to_binary(string:to_lower(binary_to_list(Ext)))) end. %% @doc Return the mimetype for a Web related file by looking at its extension. @@ -32,7 +33,8 @@ all(Path) -> web(Path) -> case filename:extension(Path) of <<>> -> {<<"application">>, <<"octet-stream">>, []}; - << $., Ext/binary >> -> web_ext(string:lowercase(Ext)) + %% @todo Convert to string:lowercase on OTP-20+. + << $., Ext/binary >> -> web_ext(list_to_binary(string:to_lower(binary_to_list(Ext)))) end. %% Internal. -- cgit v1.2.3