From 2e6c1d0f1e8e8e6dd913b8a500cf3388c96acd10 Mon Sep 17 00:00:00 2001
From: Tristan Sloughter <t@crashfast.com>
Date: Wed, 16 Oct 2013 17:34:46 -0500
Subject: add include_src option to config file, default true. This closes #15

---
 src/rlx_state.erl | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/rlx_state.erl')

diff --git a/src/rlx_state.erl b/src/rlx_state.erl
index 81f9fca..4e76a3f 100644
--- a/src/rlx_state.erl
+++ b/src/rlx_state.erl
@@ -63,6 +63,8 @@
          caller/2,
          dev_mode/1,
          dev_mode/2,
+         include_src/1,
+         include_src/2,
          upfrom/1,
          format/1,
          format/2]).
@@ -91,6 +93,7 @@
                   configured_releases :: releases(),
                   realized_releases :: releases(),
                   dev_mode=false :: boolean(),
+                  include_src=true :: boolean(),
                   upfrom :: string() | binary() | undefined,
                   config_values :: ec_dictionary:dictionary(Key::atom(),
                                                             Value::term())}).
@@ -328,6 +331,13 @@ dev_mode(#state_t{dev_mode=DevMode}) ->
 dev_mode(S, DevMode) ->
     S#state_t{dev_mode=DevMode}.
 
+-spec include_src(t()) -> boolean().
+include_src(#state_t{include_src=IncludeSrc}) ->
+    IncludeSrc.
+
+-spec include_src(t(), boolean()) -> t().
+include_src(S, IncludeSrc) ->
+    S#state_t{include_src=IncludeSrc}.
 
 -spec upfrom(t()) -> string() | binary() | undefined.
 upfrom(#state_t{upfrom=UpFrom}) ->
-- 
cgit v1.2.3