No infinite redirects in yesod-static (#442)

2012-10-28 09:09:44 +02:00 · 2012-10-28 09:09:44 +02:00 · cd8a898115
commit cd8a898115
parent 49baf17b78
1 changed files with 0 additions and 4 deletions
--- a/yesod-static/Yesod/Static.hs
+++ b/yesod-static/Yesod/Static.hs
@ -144,10 +144,6 @@ instance RenderRoute Static where
    renderRoute (StaticRoute x y) = (x, y)

 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 =
        staticApp set req { pathInfo = textPieces }