From 01f57ad65d7c75fb455f48e354bb3a328c472ce4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Mon, 7 Jan 2013 22:42:16 +0100
Subject: Add optional automatic response body compression

This behavior can be enabled with the `compress` protocol option.
See the `compress_response` example for more details.

All tests are now ran with and without compression for both HTTP
and HTTPS.
---
 .../src/compress_response_app.erl                  | 26 ++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 examples/compress_response/src/compress_response_app.erl

(limited to 'examples/compress_response/src/compress_response_app.erl')

diff --git a/examples/compress_response/src/compress_response_app.erl b/examples/compress_response/src/compress_response_app.erl
new file mode 100644
index 0000000..b5f3054
--- /dev/null
+++ b/examples/compress_response/src/compress_response_app.erl
@@ -0,0 +1,26 @@
+%% Feel free to use, reuse and abuse the code in this file.
+
+%% @private
+-module(compress_response_app).
+-behaviour(application).
+
+%% API.
+-export([start/2]).
+-export([stop/1]).
+
+%% API.
+
+start(_Type, _Args) ->
+	Dispatch = [
+		{'_', [
+			{[], toppage_handler, []}
+		]}
+	],
+	{ok, _} = cowboy:start_http(http, 100, [{port, 8080}], [
+		{compress, true},
+		{env, [{dispatch, Dispatch}]}
+	]),
+	compress_response_sup:start_link().
+
+stop(_State) ->
+	ok.
-- 
cgit v1.2.3