如何使用经纱tls而不是经纱与scotty？

Question

我需要用warp启动我的scotty应用程序，而不是普通的warp服务器，但是现在看来，warp在scotty的源代码中是硬连接的。我漏掉了什么明显的东西吗？

Answer 1

您可以使用scottyApp函数而不是scotty来获得WAI Application，您可以将其传递给warp的runTLS

{-# LANGUAGE OverloadedStrings #-}

import Network.Wai.Handler.WarpTLS (runTLS, tlsSettings)
import Network.Wai.Handler.Warp (defaultSettings, setPort)
import Network.Wai.Middleware.RequestLogger (logStdoutDev)
import Web.Scotty

main :: IO ()
main = do
    let tlsConfig = tlsSettings "your.crt" "your.key"
        config    = setPort 3443 defaultSettings
    waiApp <- scottyApp $ do
        get "/"      (text "hello")
        get "/hello" (text "hello again")
    runTLS tlsConfig config (logStdoutDev waiApp)