From e5c4567166b370c4380569a89466498589c3937e Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Mon, 29 Sep 2014 14:06:42 -0700
Subject: [PATCH] Gzip compression

---
 src/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index 7ec0d903a..7d89c2890 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -10,6 +10,7 @@ import Database.HDBC.PostgreSQL (connectPostgreSQL')
 import Control.Applicative
 import Options.Applicative hiding (columns)
 import Network.Wai.Handler.WarpTLS (tlsSettings, runTLS)
+import Network.Wai.Middleware.Gzip (gzip, def)
 
 -- }}}
 
@@ -35,7 +36,7 @@ main = do
 
   Prelude.putStrLn $ "Listening on port " ++ (show $ configPort conf :: String)
   conn <- connectPostgreSQL' dburi
-  runTLS tls settings $ app conn
+  runTLS tls settings $ gzip def $ app conn
 
   where
     describe = progDesc "create a REST API to an existing Postgres database"