Add ra_counters:new/4 wrapping seshat:new/4

Author: the-mikedavis

src/ra_counters.erl

@@ -10,6 +10,7 @@
 -export([
          init/0,
          new/2,
+         new/3,
          fetch/1,
          overview/0,
          overview/1,
@@ -32,6 +33,11 @@ init() ->
 new(Name, FieldsSpec) ->
     seshat:new(ra, Name, FieldsSpec).
 
+-spec new(name(), seshat:fields_spec(), seshat:label()) ->
+    counters:counters_ref().
+new(Name, FieldsSpec, Label) ->
+    seshat:new(ra, Name, FieldsSpec, Label).
+
 -spec fetch(name()) -> undefined | counters:counters_ref().
 fetch(Name) ->
     seshat:fetch(ra, Name).