diff --git a/rebar.config b/rebar.config
index 202c8a4..4d94262 100644
--- a/rebar.config
+++ b/rebar.config
@@ -14,6 +14,10 @@
deprecated_function_calls
]}.
+{dialyzer, [{plt_apps, all_deps},
+ {base_plt_apps, [erts, kernel, stdlib, mnesia ]}
+]}.
+
{profiles,
[
{test,
diff --git a/src/mrdb.erl b/src/mrdb.erl
index 5e49702..dd2e06c 100644
--- a/src/mrdb.erl
+++ b/src/mrdb.erl
@@ -250,7 +250,7 @@ release_snapshot(SHandle) ->
%%
`{tx, TxOpts}' - A `rocksdb' transaction with sligth modifications
%% `batch' - A `rocksdb' batch operation
%%
-%%
+%%
%% By default, transactions are combined with a snapshot with 1 retry.
%% The snapshot ensures that writes from concurrent transactions don't leak into the transaction context.
%% A transaction will be retried if it detects that the commit set conflicts with recent changes.
@@ -320,7 +320,7 @@ incr_attempt({I,O}, {Ri,Ro}) when is_integer(I), is_integer(O),
end;
incr_attempt(_, _) ->
error.
-
+
retry_activity(F, Alias, #{activity := #{ type := Type
, attempt := A
, retries := R} = Act} = Ctxt) ->
@@ -532,7 +532,7 @@ rdb_transaction(DbRef, Opts) ->
rocksdb:transaction(DbRef, Opts).
rdb_transaction_commit_and_pop(H) ->
- try rdb_transaction_commit(H)
+ try rdb_transaction_commit(H)
after
pop_ctxt()
end.
@@ -559,6 +559,7 @@ rdb_release_batch(H) ->
rocksdb:release_batch(H).
%% @doc Aborts an ongoing {@link activity/2}
+-spec abort(_) -> no_return().
abort(Reason) ->
case mnesia_compatible_aborts() of
true ->
@@ -846,7 +847,7 @@ update_index_do_bag(Ixs, Name, R, Key, Obj, Opts) ->
not_found
end
end.
-
+
update_index_do([{_Pos,ordered} = Ix|Ixs], Name, R, Key, Obj, Rest, Opts) ->
Tab = {Name, index, Ix},
#{ix_vals_f := IxValsF} = IRef = ensure_ref(Tab, R),
@@ -1018,7 +1019,7 @@ alias_of(Tab) ->
%% and when releasing, all batches are released. This will not ensure
%% atomicity, but there is no way in rocksdb to achieve atomicity
%% across db instances. At least, data should end up where you expect.
-%%
+%%
%% @end
-spec as_batch(ref_or_tab(), fun( (db_ref()) -> Res )) -> Res.
as_batch(Tab, F) ->
@@ -1321,7 +1322,7 @@ rdb_fold(Tab, Fun, Acc, Prefix, Limit) when is_function(Fun, 3)
true = valid_limit(Limit),
mrdb_select:rdb_fold(ensure_ref(Tab), Fun, Acc, Prefix, Limit).
-valid_limit(L) ->
+valid_limit(L) ->
case L of
infinity ->
true;
@@ -1559,11 +1560,11 @@ rdb_merge_(#{db_ref := DbRef, cf_handle := CfH}, K, Op, WOpts) ->
rocksdb:merge(DbRef, CfH, K, Op, WOpts).
write_opts(#{write_opts := Os}, Opts) -> Os ++ Opts;
-write_opts(_, Opts) ->
+write_opts(_, Opts) ->
Opts.
read_opts(#{read_opts := Os}, Opts) -> Os ++ Opts;
-read_opts(_, Opts) ->
+read_opts(_, Opts) ->
Opts.
-define(EOT, '$end_of_table').
diff --git a/src/mrdb_index.erl b/src/mrdb_index.erl
index d73c0c6..2f901a7 100644
--- a/src/mrdb_index.erl
+++ b/src/mrdb_index.erl
@@ -11,9 +11,9 @@
, index_ref/2
]).
--record(mrdb_ix_iter, { i :: mrdb:iterator()
+-record(mrdb_ix_iter, { i :: mrdb:mrdb_iterator()
, type = set :: set | bag
- , sub :: mrdb:ref() | pid()
+ , sub :: pid() | mrdb:db_ref()
}).
-type ix_iterator() :: #mrdb_ix_iter{}.
@@ -22,7 +22,7 @@
-type object() :: tuple().
--record(subst, { i :: mrdb:iterator()
+-record(subst, { i :: mrdb:mrdb_iterator()
, vals_f
, cur
, mref }).
@@ -121,6 +121,7 @@ iterator_move_bag(#mrdb_ix_iter{i = I, sub = Sub}, Dir) ->
Other
end.
+-spec opt_read(mrdb:ref_or_tab(), Key :: any()) -> any().
opt_read(R, Key) ->
case mrdb:read(R, Key, []) of
[Obj] ->
diff --git a/src/mrdb_mutex.erl b/src/mrdb_mutex.erl
index b32aca4..81dd18f 100644
--- a/src/mrdb_mutex.erl
+++ b/src/mrdb_mutex.erl
@@ -3,7 +3,9 @@
-export([ do/2 ]).
+-ifdef(TEST).
-include_lib("eunit/include/eunit.hrl").
+-endif.
%% We use a gen_server-based FIFO queue (one queue per alias) to manage the
%% critical section.