From f205d44518800ff669ce8421dcb5f8f04fc6cccb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Sun, 16 Sep 2012 13:57:27 +0200
Subject: Add a function to lock request responses instead of inlining

Just more cleanup in order to have req() opaque.
---
 src/cowboy_req.erl | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/cowboy_req.erl')

diff --git a/src/cowboy_req.erl b/src/cowboy_req.erl
index 7bc8ad6..741a8f1 100644
--- a/src/cowboy_req.erl
+++ b/src/cowboy_req.erl
@@ -103,6 +103,7 @@
 
 %% Misc API.
 -export([compact/1]).
+-export([lock/1]).
 -export([to_list/1]).
 -export([transport/1]).
 
@@ -908,6 +909,12 @@ compact(Req) ->
 		bindings=undefined, headers=[],
 		p_headers=[], cookies=[]}.
 
+%% @doc Prevent any further responses.
+%% @private
+-spec lock(Req) -> Req when Req::req().
+lock(Req) ->
+	Req#http_req{resp_state=locked}.
+
 %% @doc Convert the Req object to a list of key/values.
 -spec to_list(req()) -> [{atom(), any()}].
 to_list(Req) ->
-- 
cgit v1.2.3