aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/cow_mimetypes.erl6
-rw-r--r--src/cow_mimetypes.erl.src6
2 files changed, 8 insertions, 4 deletions
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.