Expose get_compactor_pid/1
diff --git a/src/couch_index.erl b/src/couch_index.erl
index 5bf322e..df004b4 100644
--- a/src/couch_index.erl
+++ b/src/couch_index.erl
@@ -16,7 +16,7 @@
 
 %% API
 -export([start_link/1, stop/1, get_state/2, get_info/1]).
--export([compact/1, compact/2]).
+-export([compact/1, compact/2, get_compactor_pid/1]).
 -export([config_change/3]).
 
 %% gen_server callbacks
@@ -67,6 +67,9 @@
     end.
 
 
+get_compactor_pid(Pid) ->
+    gen_server:call(Pid, get_compactor_pid).
+
 config_change("query_server_config", "commit_freq", NewValue) ->
     ok = gen_server:cast(?MODULE, {config_update, NewValue}).