haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Set X-Forwarded-Proto correctly yesodweb/yesod-scaffold#114

Browse Source
This commit is contained in:
Michael Snoyman 2015-12-06 12:54:36 +02:00
parent de3818784a
commit af00b76a18
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
yesod-bin/Devel.hs
View File

@ -188,7 +188,13 @@ reverseProxy opts iappPort = do
let cert = $(embedFile "certificate.pem") let cert = $(embedFile "certificate.pem")
key = $(embedFile "key.pem") key = $(embedFile "key.pem")
tlsSettings = tlsSettingsMemory cert key tlsSettings = tlsSettingsMemory cert key
runTLS tlsSettings (setPort port defaultSettings) app runTLS tlsSettings (setPort port defaultSettings) $ \req send -> do
let req' = req
{ requestHeaders
= ("X-Forwarded-Proto", "https")
: requestHeaders req
}
app req' send
httpProxy = run (develPort opts) proxyApp httpProxy = run (develPort opts) proxyApp
httpsProxy = runProxyTls (develTlsPort opts) proxyApp httpsProxy = runProxyTls (develTlsPort opts) proxyApp
putStrLn "Application can be accessed at:\n" putStrLn "Application can be accessed at:\n"