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

Remove unnecessary underscores in guessApprootOr

Browse Source
This commit is contained in:
Paul Rouse 2015-10-13 15:22:30 +01:00
parent 692773326a
commit e4503ded60
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-core/Yesod/Core/Class/Yesod.hs
View File

@ -842,13 +842,13 @@ guessApproot = guessApprootOr ApprootRelative
-- --
-- Since 1.4.16 -- Since 1.4.16
guessApprootOr :: Approot site -> Approot site guessApprootOr :: Approot site -> Approot site
guessApprootOr fallback = ApprootRequest $ \_master req -> guessApprootOr fallback = ApprootRequest $ \master req ->
case W.requestHeaderHost req of case W.requestHeaderHost req of
Nothing -> case fallback of Nothing -> case fallback of
ApprootRelative -> "" ApprootRelative -> ""
ApprootStatic t -> t ApprootStatic t -> t
ApprootMaster f -> f _master ApprootMaster f -> f master
ApprootRequest f -> f _master req ApprootRequest f -> f master req
Just host -> Just host ->
(if Network.Wai.Request.appearsSecure req (if Network.Wai.Request.appearsSecure req
then "https://" then "https://"