Gzip support

This commit is contained in:
mtgmonkey 2025-04-25 13:10:04 -04:00
parent 87361faa32
commit deef7c5839
3 changed files with 18 additions and 9 deletions

View file

@ -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

View file

@ -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

View file

@ -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: