Foundation: fix schema in approotRequest

This commit is contained in:
Astro 2021-03-06 01:42:48 +01:00
parent 68507c174a
commit 5685fffd86

View file

@ -26,6 +26,7 @@ import Yesod.Auth.Hardcoded
import Yesod.Auth.Message
import qualified Data.Text as T
import Network.Wai as Wai
import Network.Wai.Request (appearsSecure)
import Data.List (tail)
import Data.List.Split
import Text.Printf
@ -96,7 +97,7 @@ approotRequest master req =
Nothing -> appRoot $ appSettings master
where
prefix =
if isSecure req
if appearsSecure req
then "https://"
else "http://"