X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=src%2Fbeam_stats_ets_table.erl;h=e310cf356309f8ec4549f13d9fea578e07c8a879;hb=e99ea129941260681c5518ac37267e1f5b4e28c3;hp=b6036565b9603dabe4a52f4b985652a1bcce7ac2;hpb=a8d431d1d7c542f66aeb1c272a5a2edf3cd9130d;p=beam_stats.git

diff --git a/src/beam_stats_ets_table.erl b/src/beam_stats_ets_table.erl
index b603656..e310cf3 100644
--- a/src/beam_stats_ets_table.erl
+++ b/src/beam_stats_ets_table.erl
@@ -9,7 +9,6 @@
 
 -export(
     [ of_id/1
-    , id_to_bin/1
     ]).
 
 -type id() ::
@@ -26,19 +25,12 @@
 -spec of_id(id()) ->
     t().
 of_id(ID) ->
-    WordSize      = erlang:system_info(wordsize),
-    NumberOfWords = ets:info(ID, memory),
+    WordSize      = beam_stats_source:erlang_system_info(wordsize),
+    NumberOfWords = beam_stats_source:ets_info(ID, memory),
     NumberOfBytes = NumberOfWords * WordSize,
     #?MODULE
     { id     = ID
-    , name   = ets:info(ID, name)
-    , size   = ets:info(ID, size)
+    , name   = beam_stats_source:ets_info(ID, name)
+    , size   = beam_stats_source:ets_info(ID, size)
     , memory = NumberOfBytes
     }.
-
--spec id_to_bin(atom() | ets:tid()) ->
-    binary().
-id_to_bin(ID) when is_atom(ID) ->
-    atom_to_binary(ID, latin1);
-id_to_bin(ID) when is_integer(ID) ->
-    integer_to_binary(ID).