yesod-core 1.0.0.1 → 1.0.0.2

raw patch · 3 files changed

+5/−8 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Yesod.Core: class RenderRoute a => Yesod a where approot = ApprootRelative errorHandler = defaultErrorHandler defaultLayout w = do { p <- widgetToPageContent w; mmsg <- getMessage; hamletToRepHtml (\ _render_axok -> do { id ((preEscapedText . pack) "<!DOCTYPE html>\ \<html><head><style type="text/css">#synopsis details:not([open]) > ul { visibility: hidden; }</style><title>"); id (toHtml (pageTitle p)); id ((preEscapedText . pack) "</title>"); pageHead p _render_axok; id ((preEscapedText . pack) "</head><body>"); maybeH mmsg (\ msg_axol -> do { id ((preEscapedText . pack) "<p class=\"message\">"); id (toHtml msg_axol); id ((preEscapedText . pack) "</p>") }) Nothing; pageBody p _render_axok; id ((preEscapedText . pack) "</body></html>") }) } urlRenderOverride _ _ = Nothing isAuthorized _ _ = return Authorized isWriteRequest _ = do { wai <- waiRequest; return $ requestMethod wai `notElem` ["GET", "HEAD", "OPTIONS", "TRACE"] } authRoute _ = Nothing cleanPath _ s = if corrected == s then Right s else Left corrected where corrected = filter (not . null) s joinPath _ ar pieces' qs' = fromText ar `mappend` encodePath pieces qs where pieces = if null pieces' then [""] else pieces' qs = map (encodeUtf8 *** go) qs' go "" = Nothing go x = Just $ encodeUtf8 x addStaticContent _ _ _ = return Nothing cookiePath _ = "/" cookieDomain _ = Nothing maximumContentLength _ _ = 2 * 1024 * 1024 messageLogger a loc level msg = if level < logLevel a then return () else formatLogMessage loc level msg >>= putStrLn logLevel _ = LevelInfo gzipSettings _ = def jsLoader _ = BottomOfBody makeSessionBackend _ = do { key <- getKey defaultKeyFile; return $ Just $ clientSessionBackend key 120 }

+ Yesod.Core: class RenderRoute a => Yesod a where approot = ApprootRelative errorHandler = defaultErrorHandler defaultLayout w = do { p <- widgetToPageContent w; mmsg <- getMessage; hamletToRepHtml (\ _render_avls -> do { id ((preEscapedText . pack) "<!DOCTYPE html>\ \<html><head><style type="text/css">#synopsis details:not([open]) > ul { visibility: hidden; }</style><title>"); id (toHtml (pageTitle p)); id ((preEscapedText . pack) "</title>"); pageHead p _render_avls; id ((preEscapedText . pack) "</head><body>"); maybeH mmsg (\ msg_avlt -> do { id ((preEscapedText . pack) "<p class=\"message\">"); id (toHtml msg_avlt); id ((preEscapedText . pack) "</p>") }) Nothing; pageBody p _render_avls; id ((preEscapedText . pack) "</body></html>") }) } urlRenderOverride _ _ = Nothing isAuthorized _ _ = return Authorized isWriteRequest _ = do { wai <- waiRequest; return $ requestMethod wai `notElem` ["GET", "HEAD", "OPTIONS", "TRACE"] } authRoute _ = Nothing cleanPath _ s = if corrected == s then Right s else Left corrected where corrected = filter (not . null) s joinPath _ ar pieces' qs' = fromText ar `mappend` encodePath pieces qs where pieces = if null pieces' then [""] else pieces' qs = map (encodeUtf8 *** go) qs' go "" = Nothing go x = Just $ encodeUtf8 x addStaticContent _ _ _ = return Nothing cookiePath _ = "/" cookieDomain _ = Nothing maximumContentLength _ _ = 2 * 1024 * 1024 messageLogger a loc level msg = if level < logLevel a then return () else formatLogMessage loc level msg >>= putStrLn logLevel _ = LevelInfo gzipSettings _ = def jsLoader _ = BottomOfBody makeSessionBackend _ = do { key <- getKey defaultKeyFile; return $ Just $ clientSessionBackend key 120 }

- Yesod.Core: loadClientSession :: Yesod master => Key -> Int -> master -> Request -> UTCTime -> IO (BackendSession, SaveSession)

+ Yesod.Core: loadClientSession :: Yesod master => Key -> Int -> ByteString -> master -> Request -> UTCTime -> IO (BackendSession, SaveSession)

Files

Yesod/Internal.hs +0/−4
Yesod/Internal/Core.hs +4/−3
yesod-core.cabal +1/−1

Yesod/Internal.hs view

@@ -24,7 +24,6 @@     , runUniqueList     , toUnique       -- * Names-    , sessionName     , tokenKey     ) where @@ -97,9 +96,6 @@  tokenKey :: IsString a => a tokenKey = "_TOKEN"--sessionName :: IsString a => a-sessionName = "_SESSION"  type CssBuilderUrl a = (a -> [(Text, Text)] -> Text) -> Builder

Yesod/Internal/Core.hs view

@@ -699,17 +699,18 @@                      -> Int -- ^ Inactive session valitity in minutes                      -> SessionBackend master clientSessionBackend key timeout = SessionBackend-    { sbLoadSession = loadClientSession key timeout+    { sbLoadSession = loadClientSession key timeout "_SESSION"     }  loadClientSession :: Yesod master                   => CS.Key-                  -> Int+                  -> Int -- ^ timeout+                  -> S8.ByteString -- ^ session name                   -> master                   -> W.Request                   -> UTCTime                   -> IO (BackendSession, SaveSession)-loadClientSession key timeout master req now = return (sess, save)+loadClientSession key timeout sessionName master req now = return (sess, save)   where     sess = fromMaybe [] $ do       raw <- lookup "Cookie" $ W.requestHeaders req

yesod-core.cabal view

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