From 9b066cc53e342f3928dfb01a3511e3869b18e2c0 Mon Sep 17 00:00:00 2001
From: Tristan Sloughter <t@crashfast.com>
Date: Wed, 5 Nov 2014 19:42:27 -0600
Subject: add option to strip debug_info from beam files if not dev_mode

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

(limited to 'src/rlx_state.erl')

diff --git a/src/rlx_state.erl b/src/rlx_state.erl
index b7cb6ba..a21c9a6 100644
--- a/src/rlx_state.erl
+++ b/src/rlx_state.erl
@@ -36,6 +36,8 @@
          overrides/2,
          skip_apps/1,
          skip_apps/2,
+         debug_info/1,
+         debug_info/2,
          goals/1,
          goals/2,
          config_file/1,
@@ -102,6 +104,7 @@
                   sys_config :: file:filename() | undefined,
                   overrides=[] :: [{AppName::atom(), Directory::file:filename()}],
                   skip_apps=[] :: [AppName::atom()],
+                  debug_info=keep :: keep | strip,
                   configured_releases :: releases(),
                   realized_releases :: releases(),
                   dev_mode=false :: boolean(),
@@ -183,6 +186,14 @@ skip_apps(#state_t{skip_apps=Apps}) ->
 skip_apps(State, SkipApps) ->
     State#state_t{skip_apps=SkipApps}.
 
+-spec debug_info(t()) -> keep | strip.
+debug_info(#state_t{debug_info=DebugInfo}) ->
+    DebugInfo.
+
+-spec debug_info(t(), keep | strip) -> t().
+debug_info(State, DebugInfo) ->
+    State#state_t{debug_info=DebugInfo}.
+
 %% @doc get the current log state for the system
 -spec log(t()) -> ec_cmd_log:t().
 log(#state_t{log=LogState}) ->
-- 
cgit v1.2.3