From 150723ca21e3b23ea0d4341d7775a3d03e78e9eb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@dev-extend.eu>
Date: Sun, 27 Mar 2011 13:11:57 +0200
Subject: [PATCH] Return undefined instead of failing or returning "" when a
 value doesn't exist.

---
 src/cowboy_http_req.erl | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/src/cowboy_http_req.erl b/src/cowboy_http_req.erl
index 73db521f4..8d558b744 100644
--- a/src/cowboy_http_req.erl
+++ b/src/cowboy_http_req.erl
@@ -71,13 +71,15 @@ raw_path(Req) ->
 	{Req#http_req.raw_path, Req}.
 
 -spec qs_val(Name::string(), Req::#http_req{})
-	-> {Value::string() | true, Req::#http_req{}}.
+	-> {Value::string() | true | undefined, Req::#http_req{}}.
 qs_val(Name, Req=#http_req{raw_qs=RawQs, qs_vals=undefined}) ->
 	QsVals = parse_qs(RawQs),
 	qs_val(Name, Req#http_req{qs_vals=QsVals});
 qs_val(Name, Req) ->
-	{Name, Value} = lists:keyfind(Name, 1, Req#http_req.qs_vals),
-	{Value, Req}.
+	case lists:keyfind(Name, 1, Req#http_req.qs_vals) of
+		{Name, Value} -> {Value, Req};
+		false -> {undefined, Req}
+	end.
 
 -spec qs_val(Name::string(), Default::term(), Req::#http_req{})
 	-> {Value::string() | term() | true, Req::#http_req{}}.
@@ -101,10 +103,12 @@ raw_qs(Req) ->
 	{Req#http_req.raw_qs, Req}.
 
 -spec binding(Name::atom(), Req::#http_req{})
-	-> {Value::string(), Req::#http_req{}}.
+	-> {Value::string() | undefined, Req::#http_req{}}.
 binding(Name, Req) ->
-	{Name, Value} = lists:keyfind(Name, 1, Req#http_req.bindings),
-	{Value, Req}.
+	case lists:keyfind(Name, 1, Req#http_req.bindings) of
+		{Name, Value} -> {Value, Req};
+		false -> {undefined, Req}
+	end.
 
 -spec binding(Name::atom(), Default::term(), Req::#http_req{})
 	-> {Value::string() | term(), Req::#http_req{}}.
@@ -118,11 +122,11 @@ bindings(Req) ->
 	{Req#http_req.bindings, Req}.
 
 -spec header(Name::atom() | string(), Req::#http_req{})
-	-> {Value::string(), Req::#http_req{}}.
+	-> {Value::string() | undefined, Req::#http_req{}}.
 header(Name, Req) ->
 	case lists:keyfind(Name, 1, Req#http_req.headers) of
 		{Name, Value} -> {Value, Req};
-		false -> {"", Req}
+		false -> {undefined, Req}
 	end.
 
 -spec header(Name::atom() | string(), Default::term(), Req::#http_req{})