From c215312707728f0b50f4dd71e7ac9b4305850bad Mon Sep 17 00:00:00 2001
From: Tristan Sloughter <t@crashfast.com>
Date: Tue, 6 Jan 2015 18:32:32 -0600
Subject: remove duplicates without changing order of list for lib dirs

---
 src/rlx_prv_app_discover.erl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/rlx_prv_app_discover.erl b/src/rlx_prv_app_discover.erl
index 9a5da4d..b5226ad 100644
--- a/src/rlx_prv_app_discover.erl
+++ b/src/rlx_prv_app_discover.erl
@@ -55,7 +55,7 @@ init(State) ->
 %% looking for OTP Applications
 -spec do(rlx_state:t()) -> {ok, rlx_state:t()} | relx:error().
 do(State0) ->
-    LibDirs = lists:usort(get_lib_dirs(State0)),
+    LibDirs = dedup(get_lib_dirs(State0)),
     case rlx_app_discovery:do(State0, LibDirs) of
         {ok, AppMeta} ->
             State1 = rlx_state:available_apps(State0, AppMeta),
@@ -131,3 +131,9 @@ add_system_lib_dir(State) ->
         SystemLibs ->
             erlang:iolist_to_binary(SystemLibs)
     end.
+
+%% Order matters so this slow dedup needs to be used
+dedup([]) ->
+    [];
+dedup([H|T]) ->
+    [H | [X || X <- dedup(T), X /= H]].
-- 
cgit v1.2.3