eliminated warnings. there were lots of unnecessary variables created in function parameters
This commit is contained in:
@@ -8,7 +8,7 @@
|
||||
-endif.
|
||||
|
||||
|
||||
-export([rule/1,zone/1,link/1,leap/1]).
|
||||
-export([rule/1,zone/1,link/1,leap/1, separate/1]).
|
||||
|
||||
|
||||
|
||||
@@ -42,16 +42,27 @@ link([From,To]) ->
|
||||
{ok, #link{from=From, to=To}}.
|
||||
|
||||
|
||||
% @todo figure out what must be done with leap seconds
|
||||
leap([YearS, MonthS, DayS, TimeS, Corr, RS]) ->
|
||||
Y=list_to_integer(YearS),
|
||||
M=ezic_date:month_to_num(MonthS),
|
||||
D=list_to_integer(DayS),
|
||||
Time=parse_abs_time(TimeS),
|
||||
{ok, #leap{datetime={{Y,M,D}, Time}}}.
|
||||
{ok, #leap{datetime={{Y,M,D}, Time}, corr=Corr, rs=RS}}.
|
||||
|
||||
|
||||
|
||||
|
||||
separate(Records) ->
|
||||
Zones= [Z || Z=#zone{} <- Records],
|
||||
Rules= [Z || Z=#rule{} <- Records],
|
||||
Leaps= [Z || Z=#leap{} <- Records],
|
||||
Links= [Z || Z=#link{} <- Records],
|
||||
{ok, Zones, Rules, Leaps, Links}.
|
||||
|
||||
|
||||
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
% PRIVATE
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
||||
Reference in New Issue
Block a user