yesod-core 1.1.5 → 1.1.6

raw patch · 3 files changed

+15/−2 lines, 3 files

Files

Yesod/Internal/Core.hs +13/−1
test/YesodCoreTest/Widget.hs +1/−0
yesod-core.cabal +1/−1

Yesod/Internal/Core.hs view

@@ -372,6 +372,17 @@     shouldLog :: a -> LogSource -> LogLevel -> Bool     shouldLog a _ level = level >= logLevel a +    -- | A Yesod middleware, which will wrap every handler function. This+    -- allows you to run code before and after a normal handler.+    --+    -- Default: Adds the response header \"Vary: Accept, Accept-Language\".+    --+    -- Since: 1.1.6+    yesodMiddleware :: GHandler sub a res -> GHandler sub a res+    yesodMiddleware handler = do+        setHeader "Vary" "Accept, Accept-Language"+        handler+ {-# DEPRECATED messageLogger "Please use messageLoggerSource (since yesod-core 1.1.2)" #-}  formatLogMessage :: IO ZonedDate@@ -419,7 +430,7 @@                    -> (Route sub -> Route master)                    -> Maybe (SessionBackend master)                    -> W.Application-defaultYesodRunner logger handler master sub murl toMasterRoute msb req+defaultYesodRunner logger handler' master sub murl toMasterRoute msb req   | maximumContentLength master (fmap toMasterRoute murl) < len =         return $ W.responseLBS             (H.Status 413 "Too Large")@@ -469,6 +480,7 @@         case reads $ S8.unpack s of             [] -> Nothing             (x, _):_ -> Just x+    handler = yesodMiddleware handler'  data AuthResult = Authorized | AuthenticationRequired | Unauthorized Text     deriving (Eq, Show, Read)

@@ -131,3 +131,4 @@         { pathInfo = ["jshead"]         }     assertBody "<!DOCTYPE html>\n<html><head><title></title><script>alert(\"hello\");</script></head><body></body></html>" res+    assertHeader "Vary" "Accept, Accept-Language" res

yesod-core.cabal view

@@ -1,5 +1,5 @@ name:            yesod-core-version:         1.1.5+version:         1.1.6 license:         MIT license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>