aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEric <[email protected]>2012-10-26 12:38:36 -0500
committerJordan Wilberding <[email protected]>2012-10-30 09:54:42 -0600
commitdb8412d1f71a3498c6214fa255f28e3ee1e54a56 (patch)
treee44cd1065f42d4d55442d26d2c3d49e286d8af4e
parent770cf1d0229f895f45e709375aa09c0568c32dfa (diff)
downloadrelx-db8412d1f71a3498c6214fa255f28e3ee1e54a56.tar.gz
relx-db8412d1f71a3498c6214fa255f28e3ee1e54a56.tar.bz2
relx-db8412d1f71a3498c6214fa255f28e3ee1e54a56.zip
fix bug in constraint parsing
This fixes a bug in parsing invalid constraint values Signed-off-by: Jordan Wilberding <[email protected]>
-rw-r--r--src/rcl_release.erl4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/rcl_release.erl b/src/rcl_release.erl
index dd3e479..3b5694d 100644
--- a/src/rcl_release.erl
+++ b/src/rcl_release.erl
@@ -302,9 +302,9 @@ parse_goal0(_, E = {error, _}) ->
parse_goal1(Release = #release_t{annotations=Annots, goals=Goals},
Constraint0, NewAnnots) ->
case rcl_goal:parse(Constraint0) of
- {error, _} ->
+ {fail, _} ->
?RCL_ERROR({failed_to_parse, Constraint0});
- Constraint1 ->
+ {ok, Constraint1} ->
case get_app_name(Constraint1) of
E1 = {error, _} ->
E1;