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

No infinite redirects in yesod-static (#442)

Browse Source
This commit is contained in:
Michael Snoyman 2012-10-28 09:09:44 +02:00
parent 49baf17b78
commit cd8a898115
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-static/Yesod/Static.hs
View File

@ -144,10 +144,6 @@ instance RenderRoute Static where
renderRoute (StaticRoute x y) = (x, y) renderRoute (StaticRoute x y) = (x, y)
instance Yesod master => YesodDispatch Static master where instance Yesod master => YesodDispatch Static master where
-- Need to append trailing slash to make relative links work
yesodDispatch _ _ _ _ _ _ _ [] _ req =
return $ responseLBS status301 [("Location", rawPathInfo req `S.append` "/")] ""
yesodDispatch _ _ (Static set) _ _ _ _ textPieces _ req = yesodDispatch _ _ (Static set) _ _ _ _ textPieces _ req =
staticApp set req { pathInfo = textPieces } staticApp set req { pathInfo = textPieces }