Gzip support

backend/app/Main.hs

@@ -4,10 +4,12 @@
 -- import Lib
 import Data.Text.Lazy (Text)
 import Network.Wai.Handler.Warp (Port)
+import Network.Wai.Middleware.RequestLogger (logStdoutDev)
 import Text.Blaze ((!))
 import Text.Blaze.Html.Renderer.Text (renderHtml)
 
 import Network.HTTP.Types
+import Network.Wai.Middleware.Gzip
 import Web.Scotty as S
 
 import qualified Control.Exception as E
@@ -56,6 +58,9 @@ main = do
 
   let anyRoute = regex "^.*$"
   scotty port $ do
+    
+    middleware $ gzip $ def { gzipFiles = GzipCompress }
+    middleware logStdoutDev
   
     -- GET requests
     get "/" $ do