diff options
| author | Eric B Merritt <[email protected]> | 2013-02-05 16:51:03 -0800 |
|---|---|---|
| committer | Eric B Merritt <[email protected]> | 2013-02-06 14:21:32 -0800 |
| commit | 6299d16b6205edfe3eff396ec72ef8566cfabe67 (patch) | |
| tree | 0118b6e313a81b88d83ac112a3c71f1eefc2dce1 /src/rcl_release.erl | |
| parent | 9c88211a86da5812272df0fd0bd82ace3c6232ed (diff) | |
| download | relx-6299d16b6205edfe3eff396ec72ef8566cfabe67.tar.gz relx-6299d16b6205edfe3eff396ec72ef8566cfabe67.tar.bz2 relx-6299d16b6205edfe3eff396ec72ef8566cfabe67.zip | |
fix problem in release names from discovered releases
Diffstat (limited to 'src/rcl_release.erl')
| -rw-r--r-- | src/rcl_release.erl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/rcl_release.erl b/src/rcl_release.erl index ea20f1f..97465d0 100644 --- a/src/rcl_release.erl +++ b/src/rcl_release.erl @@ -89,7 +89,7 @@ %%============================================================================ -spec new(atom(), string()) -> t(). new(ReleaseName, ReleaseVsn) -> - #release_t{name=ReleaseName, vsn=ReleaseVsn, + #release_t{name=to_atom(ReleaseName), vsn=ReleaseVsn, annotations=ec_dictionary:new(ec_dict)}. -spec name(t()) -> atom(). @@ -170,7 +170,7 @@ format(Release) -> format(Indent, #release_t{name=Name, vsn=Vsn, erts=ErtsVsn, realized=Realized, goals = Goals, applications=Apps}) -> BaseIndent = rcl_util:indent(Indent), - [BaseIndent, "release: ", erlang:atom_to_list(Name), "-", Vsn, "\n", + [BaseIndent, "release: ", rcl_util:to_string(Name), "-", Vsn, "\n", rcl_util:indent(Indent + 1), " erts-", ErtsVsn, ", realized = ", erlang:atom_to_list(Realized), "\n", BaseIndent, "goals: \n", @@ -380,3 +380,10 @@ parse_version({AppName, Version, Constraint0, Constraint1}) {AppName, rcl_depsolver:parse_version(Version), Constraint1, Constraint0}; parse_version(Constraint) -> Constraint. + +to_atom(RelName) + when erlang:is_list(RelName) -> + erlang:list_to_atom(RelName); +to_atom(Else) + when erlang:is_atom(Else) -> + Else. |