haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix broken link from previous commit

Browse Source
This commit is contained in:
Michael Snoyman 2015-03-26 14:28:14 +02:00
parent ea17b80243
commit 90d5913f86
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Foundation.hs
View File

@ -138,8 +138,8 @@ instance Yesod App where
-- problem is that sometimes CORS kicks in and breaks a static resource
-- when loading from a non-secure page. So we have this ugly hack: whenever
-- the destination is a static file, don't include the scheme or hostname.
urlRenderOverride y (StaticR s) =
Just $ uncurry (joinPath y "") $ renderRoute s
urlRenderOverride y route@StaticR{} =
Just $ uncurry (joinPath y "") $ renderRoute route
urlRenderOverride _ _ = Nothing
-- The page to be redirected to when authentication is required.