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

2015-12-06 12:54:36 +02:00 · 2015-12-06 12:54:36 +02:00 · af00b76a18
commit af00b76a18
parent de3818784a
1 changed files with 7 additions and 1 deletions
--- a/yesod-bin/Devel.hs
+++ b/yesod-bin/Devel.hs
@ -188,7 +188,13 @@ reverseProxy opts iappPort = do
          let cert = $(embedFile "certificate.pem")
              key = $(embedFile "key.pem")
              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
        httpsProxy = runProxyTls (develTlsPort opts) proxyApp
    putStrLn "Application can be accessed at:\n"