Remove the random:seed/1 to fix the build warnings

This commit is contained in:
Feng Lee 2017-02-22 15:36:06 +08:00
parent 088adeda3b
commit b4936726fd
1 changed files with 2 additions and 4 deletions

View File

@ -21,10 +21,7 @@
-export([seed/0, now_secs/0, now_secs/1, now_ms/0, now_ms/1, ts_from_ms/1]).
seed() ->
case erlang:function_exported(erlang, timestamp, 0) of
true -> rand:seed(exsplus, erlang:timestamp()); %% R18
false -> random:seed(os:timestamp()) %% Compress now() deprecated warning...
end.
rand:seed(exsplus, erlang:timestamp()).
now_ms() ->
now_ms(os:timestamp()).
@ -40,3 +37,4 @@ now_secs({MegaSecs, Secs, _MicroSecs}) ->
ts_from_ms(Ms) ->
{Ms div 1000000, Ms rem 1000000, 0}.