Simplify stat reloading functionality
diff --git a/src/couch_stats_aggregator.erl b/src/couch_stats_aggregator.erl
index fae59f1..9615bf7 100644
--- a/src/couch_stats_aggregator.erl
+++ b/src/couch_stats_aggregator.erl
@@ -71,11 +71,11 @@
     Existing = couch_stats:list(),
     Current = load_metrics_for_applications(),
     ToDelete = lists:foldl(
-        fun({_, {Name, [{type, Type}, _]}}, Acc) ->
-            E = {Name, [{type, Type}]},
-            case sets:is_element(E, Acc) of
+        fun({Name, Props}=Stat, Acc) ->
+            Type = proplists:get_value(type, Props),
+            case sets:is_element(Stat, Acc) of
                 true ->
-                    sets:del_element(E, Acc);
+                    sets:del_element(Stat, Acc);
                 false ->
                     couch_stats:new(Type, Name),
                     Acc