diff --git a/backend/app/Main.hs b/backend/app/Main.hs index 6e261b3..0a63074 100644 --- a/backend/app/Main.hs +++ b/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 diff --git a/backend/hs-server.cabal b/backend/hs-server.cabal index 32458cb..8628023 100644 --- a/backend/hs-server.cabal +++ b/backend/hs-server.cabal @@ -33,6 +33,7 @@ library , http-types >=0.12.4 && <0.13 , scotty ==0.22.* , text >=2.1.1 && <2.2 + , wai-extra >=3.1.16 && <3.2 , warp >=3.4.7 && <3.5 default-language: Haskell2010 @@ -54,6 +55,7 @@ executable hs-server-exe , http-types >=0.12.4 && <0.13 , scotty ==0.22.* , text >=2.1.1 && <2.2 + , wai-extra >=3.1.16 && <3.2 , warp >=3.4.7 && <3.5 default-language: Haskell2010 @@ -76,5 +78,6 @@ test-suite hs-server-test , http-types >=0.12.4 && <0.13 , scotty ==0.22.* , text >=2.1.1 && <2.2 + , wai-extra >=3.1.16 && <3.2 , warp >=3.4.7 && <3.5 default-language: Haskell2010 diff --git a/backend/package.yaml b/backend/package.yaml index 14d004e..35aa01f 100644 --- a/backend/package.yaml +++ b/backend/package.yaml @@ -19,14 +19,15 @@ extra-source-files: description: Please see README.md dependencies: -- base >= 4.19.2 && < 4.20 -- blaze-html >= 0.9.2 && < 0.10 -- blaze-markup >= 0.8.3 && < 0.9 -- directory >= 1.3.8 && < 1.4 -- http-types >= 0.12.4 && < 0.13 -- scotty >= 0.22 && < 0.23 -- text >= 2.1.1 && < 2.2 -- warp >= 3.4.7 && < 3.5 +- base >= 4.19.2 && < 4.20 +- blaze-html >= 0.9.2 && < 0.10 +- blaze-markup >= 0.8.3 && < 0.9 +- directory >= 1.3.8 && < 1.4 +- http-types >= 0.12.4 && < 0.13 +- scotty >= 0.22 && < 0.23 +- text >= 2.1.1 && < 2.2 +- wai-extra >= 3.1.16 && < 3.2 +- warp >= 3.4.7 && < 3.5 ghc-options: - -Wall @@ -40,7 +41,7 @@ ghc-options: - -Wredundant-constraints library: - source-dirs: src + source-dirs: src executables: hs-server-exe: