eliminated warnings. there were lots of unnecessary variables created in function parameters

This commit is contained in:
aj
2010-11-04 20:57:23 -07:00
parent 01ec22e351
commit 9ac6f0cc4a
7 changed files with 23 additions and 143 deletions

View File

@@ -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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%