Remove the random:seed/1 to fix the build warnings
This commit is contained in:
parent
088adeda3b
commit
b4936726fd
|
@ -21,10 +21,7 @@
|
||||||
-export([seed/0, now_secs/0, now_secs/1, now_ms/0, now_ms/1, ts_from_ms/1]).
|
-export([seed/0, now_secs/0, now_secs/1, now_ms/0, now_ms/1, ts_from_ms/1]).
|
||||||
|
|
||||||
seed() ->
|
seed() ->
|
||||||
case erlang:function_exported(erlang, timestamp, 0) of
|
rand:seed(exsplus, erlang:timestamp()).
|
||||||
true -> rand:seed(exsplus, erlang:timestamp()); %% R18
|
|
||||||
false -> random:seed(os:timestamp()) %% Compress now() deprecated warning...
|
|
||||||
end.
|
|
||||||
|
|
||||||
now_ms() ->
|
now_ms() ->
|
||||||
now_ms(os:timestamp()).
|
now_ms(os:timestamp()).
|
||||||
|
@ -40,3 +37,4 @@ now_secs({MegaSecs, Secs, _MicroSecs}) ->
|
||||||
|
|
||||||
ts_from_ms(Ms) ->
|
ts_from_ms(Ms) ->
|
||||||
{Ms div 1000000, Ms rem 1000000, 0}.
|
{Ms div 1000000, Ms rem 1000000, 0}.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue