@@ -1,6 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22import Network.Wai
3−import Network.Wai.Handler.Warp (defaultSettings)
3+import Network.Wai.Handler.Warp (defaultSettings, settingsPort)
44import Network.Wai.Handler.WarpTLS
55import Network.HTTP.Types (status200)
66import Blaze.ByteString.Builder (copyByteString)
@@ -11,13 +11,9 @@ import Network.HTTP.ReverseProxy
1111import Network.HTTP.Conduit
1212
1313main = do
14− putStrLn "https://localhost:3000/"
14+ putStrLn "https://localhost:3009/"
1515 manager <- newManager def
16− runTLS (TLSSettings "warp-tls/certificate.pem" "warp-tls/key.pem") defaultSettings $
17− waiProxyTo
18− (const $ return $ Right $ ProxyDest "localhost" 3001)
19− defaultOnExc
20− manager
16+ runTLS (TLSSettings "config/tls-cert" "config/tls-key") defaultSettings { settingsPort = 3009 } app
2117
2218app req = return $
2319 case rawPathInfo req of