aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/rcl_dscv_util.erl2
-rw-r--r--src/rcl_provider.erl18
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
%%%===================================================================