From 492c954ede0380879fa66dfcc4550fc80584eeed Mon Sep 17 00:00:00 2001
From: Tristan Sloughter <tristan@heroku.com>
Date: Sat, 13 Apr 2013 20:01:22 -0500
Subject: add skip_apps config option to list discovered apps to skip

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

(limited to 'src/rcl_state.erl')

diff --git a/src/rcl_state.erl b/src/rcl_state.erl
index 7247818..4b21bbe 100644
--- a/src/rcl_state.erl
+++ b/src/rcl_state.erl
@@ -29,6 +29,8 @@
          lib_dirs/1,
          overrides/1,
          overrides/2,
+         skip_apps/1,
+         skip_apps/2,
          goals/1,
          config_file/1,
          config_file/2,
@@ -74,6 +76,7 @@
                   default_release :: {rcl_release:name(), rcl_release:vsn()},
                   sys_config :: file:filename() | undefined,
                   overrides :: [{AppName::atom(), Directory::file:filename()}],
+                  skip_apps = [] :: [AppName::atom()],
                   releases :: releases(),
                   discovered_releases :: releases(),
                   config_values :: ec_dictionary:dictionary(Key::atom(),
@@ -129,6 +132,16 @@ overrides(#state_t{overrides=Overrides}) ->
 overrides(State, Overrides) ->
     State#state_t{overrides=Overrides}.
 
+
+-spec skip_apps(t()) -> [AppName::atom()].
+skip_apps(#state_t{skip_apps=Apps}) ->
+    Apps.
+
+%% @doc the application overrides for the system
+-spec skip_apps(t(), [AppName::atom()]) -> t().
+skip_apps(State, SkipApps) ->
+    State#state_t{skip_apps=SkipApps}.
+
 %% @doc get the current log state for the system
 -spec log(t()) -> rcl_log:t().
 log(#state_t{log=LogState}) ->
-- 
cgit v1.2.3