Skip to content
Browse files

Fixing some warnings

  • Loading branch information...
1 parent 77fc3a0 commit 9db325826054a93b57dba77bc22ccf7f67892c4c Dave Smith committed Oct 15, 2008
Showing with 7 additions and 7 deletions.
  1. +5 −5 src/epop.erl
  2. +2 −2 src/epop_client.erl
View
10 src/epop.erl
@@ -177,7 +177,7 @@ recv_ml_on_ok(S) ->
recv_3_chars(S) -> recv_3_chars(S,recv(S)).
-recv_3_chars(S,Cs) when length(Cs)>=3 -> Cs;
+recv_3_chars(_S,Cs) when length(Cs)>=3 -> Cs;
recv_3_chars(S,Cs) -> recv_3_chars(S,Cs ++ recv(S)).
%% ------------------------------------------
@@ -212,8 +212,8 @@ rml(4,S,[H|T],[$.|Mline]) -> rml(1,S,[H|T],Mline); % continue
rml(5,S,[?LF|T],Mline) -> rml(6,S,T,[?LF|Mline]); % goto next state
rml(5,S,[H|T],[$.|Mline]) -> rml(1,S,[H|T],Mline); % (de-)byte stuff
-rml(6,S,T,[?LF,?CR,$.|Mline]) -> {lists:reverse(Mline),T}; % accept
-rml(6,S,T,[?LF,$.|Mline]) -> {lists:reverse(Mline),T}; % accept
+rml(6,_S,T,[?LF,?CR,$.|Mline]) -> {lists:reverse(Mline),T}; % accept
+rml(6,_S,T,[?LF,$.|Mline]) -> {lists:reverse(Mline),T}; % accept
rml(State,S,[],Mline) -> rml(State,S,recv(S),Mline). % get more
@@ -237,9 +237,9 @@ complete_sl(S,[H|T],Line) ->
complete_sl(S,[],Line) ->
complete_sl(S,recv(S),Line).
-complete_sl_lf(S,[?LF|T],Line) ->
+complete_sl_lf(_S,[?LF|T],Line) ->
{lists:reverse([?LF|Line]),T};
-complete_sl_lf(S,[H|T],Line) ->
+complete_sl_lf(S,[_|T],Line) ->
complete_sl(S,T,[?LF|Line]);
complete_sl_lf(S,[],Line) ->
complete_sl_lf(S,recv(S),Line).
View
4 src/epop_client.erl
@@ -251,9 +251,9 @@ get_retrieve(S) ->
get_line(Str) ->
F = fun($\n) -> false;
- (C) -> true
+ (_) -> true
end,
- {Line,[Nl|Rest]} = lists:splitwith(F,Str),
+ {Line,[_|Rest]} = lists:splitwith(F,Str),
{Line,Rest}.
%% -------------------

0 comments on commit 9db3258

Please sign in to comment.
Something went wrong with that request. Please try again.