haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-01 13:50:25 +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 -- 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 -- 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. -- the destination is a static file, don't include the scheme or hostname.
urlRenderOverride y (StaticR s) = urlRenderOverride y route@StaticR{} =
Just $ uncurry (joinPath y "") $ renderRoute s Just $ uncurry (joinPath y "") $ renderRoute route
urlRenderOverride _ _ = Nothing urlRenderOverride _ _ = Nothing
-- The page to be redirected to when authentication is required. -- The page to be redirected to when authentication is required.