diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/rcl_dscv_util.erl | 2 | ||||
| -rw-r--r-- | src/rcl_provider.erl | 18 |
2 files changed, 18 insertions, 2 deletions
diff --git a/src/rcl_dscv_util.erl b/src/rcl_dscv_util.erl index 4fb6126..68dcb68 100644 --- a/src/rcl_dscv_util.erl +++ b/src/rcl_dscv_util.erl @@ -92,8 +92,6 @@ discover_dir(ProcessDir, File, directory) -> [Err] end; discover_dir(ProcessDir, File, file) -> - Res = ProcessDir(File, file), - io:format("Result -> ~p~n", [Res]), case ProcessDir(File, file) of {ok, Result} -> [{ok, Result}]; diff --git a/src/rcl_provider.erl b/src/rcl_provider.erl index 750b96e..4d8f044 100644 --- a/src/rcl_provider.erl +++ b/src/rcl_provider.erl @@ -41,10 +41,28 @@ -opaque t() :: {?MODULE, module()}. + +-ifdef(have_callback_support). + -callback init(rcl_state:t()) -> {ok, rcl_state:t()} | relcool:error(). -callback do(rcl_state:t()) -> {ok, rcl_state:t()} | relcool:error(). -callback format_error(Reason::term()) -> iolist(). +-else. + +%% In the case where R14 or lower is being used to compile the system +%% we need to export a behaviour info +-export([behaviour_info/1]). +-spec behaviour_info(atom()) -> [{atom(), arity()}] | undefined. +behaviour_info(callbacks) -> + [{init, 1}, + {do, 1}, + {format_error, 1}]; +behaviour_info(_) -> + undefined. + +-endif. + %%%=================================================================== %%% API %%%=================================================================== |