cookie 0.2.1 → 0.3.0

raw patch · 2 files changed

+7/−1 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ Web.Cookie: setCookieHttpOnly :: SetCookie -> Bool

- Web.Cookie: SetCookie :: ByteString -> ByteString -> Maybe ByteString -> Maybe UTCTime -> Maybe ByteString -> SetCookie

+ Web.Cookie: SetCookie :: ByteString -> ByteString -> Maybe ByteString -> Maybe UTCTime -> Maybe ByteString -> Bool -> SetCookie

Files

Web/Cookie.hs +6/−0
cookie.cabal +1/−1

@@ -32,6 +32,7 @@ import Data.Text.Encoding (encodeUtf8, decodeUtf8With) import Data.Text.Encoding.Error (lenientDecode) import Control.Arrow ((***))+import Data.Maybe (isJust)  -- | Textual cookies. Functions assume UTF8 encoding. type CookiesText = [(Text, Text)]@@ -84,6 +85,7 @@     , setCookiePath :: Maybe S.ByteString     , setCookieExpires :: Maybe UTCTime     , setCookieDomain :: Maybe S.ByteString+    , setCookieHttpOnly :: Bool     }     deriving (Eq, Show, Read) @@ -104,6 +106,9 @@         Nothing -> mempty         Just d -> copyByteString "; domain=" `mappend`                   fromByteString d+    , if setCookieHttpOnly sc+        then copyByteString "; HttpOnly"+        else mempty     ]  parseSetCookie :: S.ByteString -> SetCookie@@ -114,6 +119,7 @@     , setCookieExpires =         lookup "expires" pairs >>= parseCookieExpires     , setCookieDomain = lookup "domain" pairs+    , setCookieHttpOnly = isJust $ lookup "HttpOnly" pairs     }   where     (key, value, b) = parsePair a

@@ -1,5 +1,5 @@ name:            cookie-version:         0.2.1+version:         0.3.0 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>