Fix {git,Url} support (Reported-by: Garrett Smith)

This commit is contained in:
Tuncer Ayaz 2011-07-08 13:58:01 +02:00
parent 7118ec6612
commit 45f44c2166

View file

@ -411,7 +411,11 @@ update_source(AppDir, {bzr, _Url, Rev}) ->
%% Source helper functions %% Source helper functions
%% =================================================================== %% ===================================================================
source_engine_avail({Name, _, _}=Source) source_engine_avail(Source) ->
Name = element(1, Source),
source_engine_avail(Name, Source).
source_engine_avail(Name, Source)
when Name == hg; Name == git; Name == svn; Name == bzr -> when Name == hg; Name == git; Name == svn; Name == bzr ->
case scm_client_vsn(Name) >= required_scm_client_vsn(Name) of case scm_client_vsn(Name) >= required_scm_client_vsn(Name) of
true -> true ->