From 350d4ae3f2e9973b3638b06c7092370afa08e634 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Sun, 16 Sep 2012 16:04:16 +0200
Subject: Add the private function set_host/4 used by cowboy_protocol

---
 src/cowboy_req.erl | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/cowboy_req.erl')

diff --git a/src/cowboy_req.erl b/src/cowboy_req.erl
index 80d68a9..08e4155 100644
--- a/src/cowboy_req.erl
+++ b/src/cowboy_req.erl
@@ -102,6 +102,9 @@
 -export([upgrade_reply/3]).
 -export([ensure_response/2]).
 
+%% Private setter/getter API.
+-export([set_host/4]).
+
 %% Misc API.
 -export([compact/1]).
 -export([lock/1]).
@@ -908,6 +911,14 @@ ensure_response(#http_req{socket=Socket, transport=Transport,
 	Transport:send(Socket, <<"0\r\n\r\n">>),
 	ok.
 
+%% Private setter/getter API.
+
+%% @private
+-spec set_host(binary(), inet:port_number(), binary(), Req)
+	-> Req when Req::req().
+set_host(Host, Port, RawHost, Req=#http_req{headers=Headers}) ->
+	Req#http_req{host=Host, port=Port, headers=[{'Host', RawHost}|Headers]}.
+
 %% Misc API.
 
 %% @doc Compact the request data by removing all non-system information.
-- 
cgit v1.2.3