, node_id_to_bin/1
]).
+-define(SCHEMA_VERSION, <<"beam_stats_v0">>).
-define(T, #?MODULE).
-type t() ::
-spec path_to_iolist([binary()]) ->
iolist().
path_to_iolist(Path) ->
- interleave(Path, <<".">>).
+ list_interleave(Path, <<".">>).
-spec node_id_to_bin(node()) ->
binary().
-spec path_prefix_schema_version(t()) ->
t().
path_prefix_schema_version(?T{}=T) ->
- path_prefix(T, schema_version()).
+ path_prefix(T, ?SCHEMA_VERSION).
-spec path_prefix(t(), binary()) ->
t().
path_prefix(?T{path=Path}=T, <<Prefix/binary>>) ->
T?T{path = [Prefix | Path]}.
--spec schema_version() ->
- binary().
-schema_version() ->
- <<"beam_stats_v0">>.
-
--spec interleave(iolist(), iodata()) ->
- iolist().
-interleave([], _) -> [];
-interleave([X], _) -> [X];
-interleave([X|Xs], Sep) ->
- [X, Sep | interleave(Xs, Sep)].
+-spec list_interleave([A], A) ->
+ [A].
+list_interleave([], _) ->
+ [];
+list_interleave([X], _) ->
+ [X];
+list_interleave([X|Xs], Sep) ->
+ [X, Sep | list_interleave(Xs, Sep)].
-spec timestamp_to_integer(erlang:timestamp()) ->
non_neg_integer().