From 8281dac892b5986e66d33b7ecad27b7a60216c29 Mon Sep 17 00:00:00 2001
From: Eric <ericbmerritt@gmail.com>
Date: Mon, 17 Sep 2012 12:08:10 -0500
Subject: suport the ability to update releases in the system

---
 src/rcl_state.erl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/rcl_state.erl')

diff --git a/src/rcl_state.erl b/src/rcl_state.erl
index 97d4e3d..298e60d 100644
--- a/src/rcl_state.erl
+++ b/src/rcl_state.erl
@@ -33,6 +33,7 @@
          providers/2,
          add_release/2,
          get_release/3,
+         update_release/2,
          releases/1,
          default_release/1,
          default_release/3,
@@ -126,6 +127,13 @@ add_release(M=#state_t{releases=Releases}, Release) ->
                                          Release,
                                          Releases)}.
 
+-spec update_release(t(), rcl_release:t()) -> t().
+update_release(M=#state_t{releases=Releases}, Release) ->
+    M#state_t{releases=ec_dictionary:add({rcl_release:name(Release),
+                                          rcl_release:vsn(Release)},
+                                         Release,
+                                         Releases)}.
+
 -spec get_release(t(), rcl_release:name(), rcl_release:vsn()) -> rcl_release:t().
 get_release(#state_t{releases=Releases}, Name, Vsn) ->
     ec_dictionary:get({Name, Vsn}, Releases).
-- 
cgit v1.2.3