add support for Accept-Encoding header

srv/main.hy

@@ -39,7 +39,7 @@
                     True (get address 0))) f": {(. parsed-request (get "method"))} {(. parsed-request (get "route") (get "path"))}"))
 
                   (setv response (match-request parsed-request))
-                  (.sendall client-socket (http.response.send #** response))
+                  (.sendall client-socket (http.response.send :request-headers (.get parsed-request "headers") #** response))
 
                   (except [e Exception]
                     (.warn log (format-exc))