X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=src%2Fbeam_stats_msg_graphite.erl;h=bd5f3b4481bebdd2282def725586e9b0a3fe1737;hb=40dcb7826352be754bb5148c7b5d97c709244fde;hp=5b8bd435098606b619b13ef696eed6ddd4d4693f;hpb=e1221e429959c3184223b8e174ceb503e59781ba;p=beam_stats.git diff --git a/src/beam_stats_msg_graphite.erl b/src/beam_stats_msg_graphite.erl index 5b8bd43..bd5f3b4 100644 --- a/src/beam_stats_msg_graphite.erl +++ b/src/beam_stats_msg_graphite.erl @@ -19,6 +19,7 @@ , node_id_to_bin/1 ]). +-define(SCHEMA_VERSION, <<"beam_stats_v0">>). -define(T, #?MODULE). -type t() :: @@ -97,22 +98,19 @@ node_id_to_bin(NodeID) -> -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, <>) -> T?T{path = [Prefix | Path]}. --spec schema_version() -> - binary(). -schema_version() -> - <<"beam_stats_v0">>. - -spec interleave([A], A) -> [A]. -interleave([], _) -> []; -interleave([X], _) -> [X]; +interleave([], _) -> + []; +interleave([X], _) -> + [X]; interleave([X|Xs], Sep) -> [X, Sep | interleave(Xs, Sep)].