yesod-core 0.9.4 → 0.9.4.1

raw patch · 2 files changed

+9/−11 lines, 2 files

Files

• Yesod/Handler.hs +8/−10
• yesod-core.cabal +1/−1

@@ -377,7 +377,7 @@            -> master            -> sub            -> YesodApp-runHandler handler mrender sroute tomr master sub =+runHandler handler mrender sroute tomr ma sa =   YesodApp $ \eh rr cts initSession -> do     let toErrorHandler e =             case fromException e of@@ -392,8 +392,8 @@         }     let hd = HandlerData             { handlerRequest = rr-            , handlerSub = sub-            , handlerMaster = master+            , handlerSub = sa+            , handlerMaster = ma             , handlerRoute = sroute             , handlerRender = mrender             , handlerToMaster = tomr@@ -423,7 +423,7 @@         HCRedirect rt loc -> do             let hs = Header "Location" (encodeUtf8 loc) : appEndo headers []             return $ YARPlain-                (getRedirectStatus rt $ reqWaiRequest rr) hs typePlain emptyContent+                (getRedirectStatus rt) hs typePlain emptyContent                 finalSession         HCSendFile ct fp p -> catchIter             (sendFile' ct fp p)@@ -707,12 +707,10 @@ getStatus (PermissionDenied _) = H.status403 getStatus (BadMethod _) = H.status405 -getRedirectStatus :: RedirectType ->  W.Request -> H.Status-getRedirectStatus RedirectPermanent _ = H.status301-getRedirectStatus RedirectTemporary r-    | W.httpVersion r == H.http11 = H.status307-    | otherwise                  = H.status302-getRedirectStatus RedirectSeeOther  _ = H.status303+getRedirectStatus :: RedirectType -> H.Status+getRedirectStatus RedirectPermanent = H.status301+getRedirectStatus RedirectTemporary = H.status302+getRedirectStatus RedirectSeeOther = H.status303  -- | Different types of redirects. data RedirectType = RedirectPermanent

@@ -1,5 +1,5 @@ name:            yesod-core-version:         0.9.4+version:         0.9.4.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>