From cd8a8981156816625a939c0c8ff8ce9358bc3675 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 28 Oct 2012 09:09:44 +0200 Subject: [PATCH] No infinite redirects in yesod-static (#442) --- yesod-static/Yesod/Static.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/yesod-static/Yesod/Static.hs b/yesod-static/Yesod/Static.hs index 3b098c8a..ddf81523 100644 --- 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 }