From b1a947488b48db12c8f874f0b81232672b6ad810 Mon Sep 17 00:00:00 2001
From: Daniel Luna <daniel@lunas.se>
Date: Tue, 28 Aug 2012 13:22:57 -0400
Subject: [PATCH] Add all subdirs to xref library path

---
 src/rebar_xref.erl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/rebar_xref.erl b/src/rebar_xref.erl
index 144760a..42e6b9e 100644
--- a/src/rebar_xref.erl
+++ b/src/rebar_xref.erl
@@ -44,7 +44,7 @@
 xref(Config, _) ->
     %% Spin up xref
     {ok, _} = xref:start(xref),
-    ok = xref:set_library_path(xref, code_path()),
+    ok = xref:set_library_path(xref, code_path(Config)),
 
     xref:set_default(xref, [{warnings,
                              rebar_config:get(Config, xref_warnings, false)},
@@ -132,9 +132,12 @@ check_query({Query, Value}) ->
             true
     end.
 
-code_path() ->
-    [P || P <- code:get_path(),
-          filelib:is_dir(P)] ++ [filename:join(rebar_utils:get_cwd(), "ebin")].
+code_path(Config) ->
+    BaseDir = rebar_config:get_xconf(Config, base_dir),
+    [P || P <- code:get_path() ++
+              [filename:join(BaseDir, filename:join(SubDir, "ebin"))
+               || SubDir <- rebar_config:get(Config, sub_dirs, [])],
+          filelib:is_dir(P)].
 
 %%
 %% Ignore behaviour functions, and explicitly marked functions