diff --git a/src/rebar_string.erl b/src/rebar_string.erl index 79867f54..56d6de3f 100644 --- a/src/rebar_string.erl +++ b/src/rebar_string.erl @@ -4,7 +4,7 @@ %%% Also contains other useful string functionality. -module(rebar_string). %% Compatibility exports --export([join/2, split/2, lexemes/2, trim/3, uppercase/1, lowercase/1, chr/2]). +-export([join/2, split/2, lexemes/2, trim/1, trim/3, uppercase/1, lowercase/1, chr/2]). %% Util exports -export([consult/1]). @@ -22,6 +22,7 @@ join([H|T], Sep) -> split(Str, SearchPattern) -> string:split(Str, SearchPattern). lexemes(Str, SepList) -> string:lexemes(Str, SepList). +trim(Str) -> string:trim(Str). trim(Str, Direction, Cluster=[_]) -> string:trim(Str, Direction, Cluster). uppercase(Str) -> string:uppercase(Str). lowercase(Str) -> string:lowercase(Str). @@ -36,6 +37,10 @@ join(Strings, Separator) -> string:join(Strings, Separator). split(Str, SearchPattern) when is_list(Str) -> string:split(Str, SearchPattern); split(Str, SearchPattern) when is_binary(Str) -> binary:split(Str, SearchPattern). lexemes(Str, SepList) -> string:tokens(Str, SepList). +trim(Str) when is_list(Str) -> + re:replace(Str, "\\s+", "", [global, {return, list}]); +trim(Str) when is_binary(Str) -> + list_to_binary(trim(binary_to_list(Str))). trim(Str, Direction, [Char]) -> Dir = case Direction of both -> both;