nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Foundation: fix schema in approotRequest

Browse source
This commit is contained in:
Astro 2021-03-06 01:42:48 +01:00
parent 68507c174a
commit 5685fffd86
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Foundation.hs
View file

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