Permalink
Browse files

cleanup extract_extensions

  • Loading branch information...
1 parent 2a430ec commit 134e9d8ffa0038b2651aafb99e708dcc4fbc8b6e Magnus Klaar committed Sep 9, 2011
Showing with 1 addition and 3 deletions.
  1. +1 −3 src/mimetypes.erl
View
@@ -189,9 +189,7 @@ code_change(_OldVsn, State, _Extra) ->
extract_extensions([]) ->
[];
extract_extensions([{Type, Exts}|Rest]) ->
- lists:concat([
- [ {Ext, Type} || Ext <- Exts ],
- extract_extensions(Rest)]).
+ [{Ext, Type} || Ext <- Exts] ++ extract_extensions(Rest).
aggregate_extensions(Exts) ->
aggregate_extensions_1(lists:keysort(1, Exts)).

0 comments on commit 134e9d8

Please sign in to comment.