[ewgi commit] r96 - branches/RB-0.2/lib/ewgi/src

[codesite...@google.com]

Author: huntermorris
Date: Thu Nov 20 11:10:10 2008
New Revision: 96

Modified:
branches/RB-0.2/lib/ewgi/src/ewgi_api.erl
branches/RB-0.2/lib/ewgi/src/ewgi_mochiweb.erl

Log:
Fixed guard clauses

Modified: branches/RB-0.2/lib/ewgi/src/ewgi_api.erl
==============================================================================
--- branches/RB-0.2/lib/ewgi/src/ewgi_api.erl (original)
+++ branches/RB-0.2/lib/ewgi/src/ewgi_api.erl Thu Nov 20 11:10:10 2008
@@ -470,16 +470,16 @@
quote([], Acc) ->
lists:reverse(Acc);
%% low alpha chars
-quote([H|Rest], Acc) when H >= $a andalso H =< $z ->
+quote([H|Rest], Acc) when H >= $a, H =< $z ->
quote(Rest, [H|Acc]);
%% hialpha chars
-quote([H|Rest], Acc) when H >= $A andalso H =< $Z ->
+quote([H|Rest], Acc) when H >= $A, H =< $Z ->
quote(Rest, [H|Acc]);
%% digit chars
-quote([H|Rest], Acc) when H >= $0 andalso H =< $9 ->
+quote([H|Rest], Acc) when H >= $0, H =< $9 ->
quote(Rest, [H|Acc]);
%% safe chars
-quote([H|Rest], Acc) when H =:= $- orelse H=:=$. orelse H=:=$_ orelse
H=:=$~ ->
+quote([H|Rest], Acc) when H =:= $-; H=:=$.; H=:=$_; H=:=$~ ->
quote(Rest, [H|Acc]);
%% space
quote([$\s|Rest], Acc) ->

Modified: branches/RB-0.2/lib/ewgi/src/ewgi_mochiweb.erl
==============================================================================
--- branches/RB-0.2/lib/ewgi/src/ewgi_mochiweb.erl (original)
+++ branches/RB-0.2/lib/ewgi/src/ewgi_mochiweb.erl Thu Nov 20 11:10:10 2008
@@ -268,13 +268,13 @@
{K, V} = ewgi_api:normalize_header(Pair),
case K of
K when K =:= "content-length"
- orelse K =:= "content-type"
- orelse K =:= "accept"
- orelse K =:= "cookie"
- orelse K =:= "host"
- orelse K =:= "if-modified-since"
- orelse K =:= "user-agent"
- orelse K =:= "x-http-method-override" ->
+ ; K =:= "content-type"
+ ; K =:= "accept"
+ ; K =:= "cookie"
+ ; K =:= "host"
+ ; K =:= "if-modified-since"
+ ; K =:= "user-agent"
+ ; K =:= "x-http-method-override" ->
Acc;
_ ->
Ex = case gb_trees:lookup(K0, Acc) of