From a4a7a566ea0fb7bba8daa30032d96f37e44452b5 Mon Sep 17 00:00:00 2001
From: Chaitanya Gupta <mail@chaitanyagupta.com>
Date: Thu, 22 Nov 2018 02:07:30 +0530
Subject: [PATCH] Use gzip encoding for HTTP requests

---
 deftask.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/deftask.lisp b/deftask.lisp
index dcbedac..87b8f43 100644
--- a/deftask.lisp
+++ b/deftask.lisp
@@ -50,7 +50,9 @@
                              :method method
                              :basic-authorization (list "bearer" *token*)
                              :parameters (when (eql method :get) parameters)
-                             :content content)
+                             :additional-headers `(("Accept-Encoding" . "gzip"))
+                             :content content
+                             :decode-content t)
       (declare (ignore response-uri stream closedp))
       (if (and (>= status-code 200) (< status-code 300))
           (let ((content-type (cdr (assoc :content-type headers))))