From 7a1083d2a881b511e202edd0e2ff2b207e23ae5b Mon Sep 17 00:00:00 2001
From: Eric <ericbmerritt@gmail.com>
Date: Mon, 28 Oct 2013 14:11:51 -0700
Subject: support using the original app vsn as a string not the parsed vsn

---
 src/rlx_app_info.erl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/rlx_app_info.erl')

diff --git a/src/rlx_app_info.erl b/src/rlx_app_info.erl
index a738cb8..931c139 100644
--- a/src/rlx_app_info.erl
+++ b/src/rlx_app_info.erl
@@ -40,6 +40,7 @@
          new/5,
          name/1,
          name/2,
+         original_vsn/1,
          vsn/1,
          vsn/2,
          vsn_as_string/1,
@@ -60,6 +61,7 @@
 -include("relx.hrl").
 
 -record(app_info_t, {name :: atom(),
+                     original_vsn :: string(),
                      vsn :: ec_semver:semver(),
                      dir :: file:name(),
                      link=false :: boolean(),
@@ -97,7 +99,9 @@ new(AppName, Vsn, Dir, ActiveDeps, LibraryDeps, Link)
         {fail, _} ->
             ?RLX_ERROR({vsn_parse, AppName});
         ParsedVsn ->
-            {ok, #app_info_t{name=AppName, vsn=ParsedVsn, dir=Dir,
+            {ok, #app_info_t{name=AppName, original_vsn=Vsn,
+                             vsn=ParsedVsn,
+                             dir=Dir,
                              active_deps=ActiveDeps,
                              library_deps=LibraryDeps,
                              link=Link}}
@@ -116,6 +120,10 @@ name(AppInfo=#app_info_t{}, AppName)
 vsn(#app_info_t{vsn=Vsn}) ->
     Vsn.
 
+-spec original_vsn(t()) -> string().
+original_vsn(#app_info_t{original_vsn=Vsn}) ->
+    Vsn.
+
 -spec vsn_as_string(t()) -> string().
 vsn_as_string(#app_info_t{vsn=Vsn}) ->
     erlang:binary_to_list(erlang:iolist_to_binary(ec_semver:format(Vsn))).
-- 
cgit v1.2.3