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

yesodweb · Dec 6, 2015 · af00b76 · af00b76
1 parent de38187
commit af00b76
Showing 1 changed file with 7 additions and 1 deletion.
diff --git 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"