yesod-core 0.10.2.2 → 0.10.3

raw patch · 3 files changed

+11/−10 lines, 3 files

Files

• Yesod/Internal/Core.hs +10/−4
• test/test.hs +0/−5
• yesod-core.cabal +1/−1

@@ -244,8 +244,8 @@       where         corrected = filter (not . T.null) s -    -- | Builds an absolute URL by concatenating the application root with the  -    -- pieces of a path and a query string, if any. +    -- | Builds an absolute URL by concatenating the application root with the+    -- pieces of a path and a query string, if any.     -- Note that the pieces of the path have been previously cleaned up by 'cleanPath'.     joinPath :: a              -> T.Text -- ^ application root@@ -291,6 +291,12 @@     cookiePath :: a -> S8.ByteString     cookiePath _ = "/" +    -- | The domain value to set for cookies. By default, the+    -- domain is not set, meaning cookies will be sent only to+    -- the current domain.+    cookieDomain :: a -> Maybe S8.ByteString+    cookieDomain _ = Nothing+     -- | Maximum allowed length of the request body, in bytes.     maximumContentLength :: a -> Maybe (Route a) -> Int     maximumContentLength _ _ = 2 * 1024 * 1024 -- 2 megabytes@@ -370,7 +376,7 @@ -- turn the TH Loc loaction information into a human readable string -- leaving out the loc_end parameter fileLocationToString :: Loc -> String-fileLocationToString loc = (loc_package loc) ++ ':' : (loc_module loc) ++  +fileLocationToString loc = (loc_package loc) ++ ':' : (loc_module loc) ++   ' ' : (loc_filename loc) ++ ':' : (line loc) ++ ':' : (char loc)   where     line = show . fst . loc_start@@ -454,7 +460,7 @@                             , setCookieValue = sessionVal                             , setCookiePath = Just (cookiePath master)                             , setCookieExpires = Just $ getExpires (clientSessionDuration master)-                            , setCookieDomain = Nothing+                            , setCookieDomain = cookieDomain master                             , setCookieHttpOnly = True                             }                           : hs

@@ -1,5 +0,0 @@-import Test.Hspec-import qualified YesodCoreTest--main :: IO ()-main = hspecX $ descriptions $ YesodCoreTest.specs

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