apiary-cookie 1.4.0 → 1.5.0

raw patch · 2 files changed

+10/−12 lines, 2 filesdep −types-compatdep −web-routingdep ~apiarydep ~basenew-uploaderPVP ok

version bump matches the API change (PVP)

Dependencies removed: types-compat, web-routing

Dependency ranges changed: apiary, base

API changes (from Hackage documentation)

Files

• apiary-cookie.cabal +5/−7
• src/Web/Apiary/Cookie.hs +5/−5

@@ -1,5 +1,5 @@ name:                apiary-cookie-version:             1.4.0+version:             1.5.0 synopsis:            Cookie support for apiary web framework. description:   example: <https://github.com/philopon/apiary/blob/master/examples/auth.hs>@@ -18,17 +18,15 @@  library   exposed-modules:     Web.Apiary.Cookie-  build-depends:       base               >=4.6  && <4.8-                     , apiary             >=1.4  && <1.5-                     , wai                >=3.0  && <3.1+  build-depends:       base               >=4.7  && <5.0+                     , apiary             >=2.1  && <3.0+                     , wai                >=3.0  && <3.3                       , bytestring         >=0.10 && <0.11                      , cookie             >=0.4  && <0.5                      , time               >=1.4  && <1.6                      , blaze-builder      >=0.3  && <0.5-                     , blaze-html         >=0.7  && <0.8-                     , web-routing-                     , types-compat+                     , blaze-html         >=0.7  && <0.9    hs-source-dirs:      src   ghc-options:         -O2 -Wall

@@ -4,7 +4,7 @@ {-# LANGUAGE TypeOperators #-} {-# LANGUAGE TypeFamilies #-} -module Web.Apiary.Cookie +module Web.Apiary.Cookie     ( -- * setter       setCookie     , deleteCookie@@ -20,7 +20,7 @@  import Control.Applicative((<$>)) -import Network.Routing.Dict(type (</))+import Data.Apiary.Routing.Dict(type (</)) import qualified Network.Wai as Wai  import Web.Cookie (SetCookie(..))@@ -29,7 +29,7 @@ import Control.Monad.Apiary.Action(ActionT, getHeaders, addHeader) import Control.Monad.Apiary.Filter -import GHC.TypeLits.Compat(KnownSymbol, symbolVal)+import GHC.TypeLits(KnownSymbol, symbolVal) import Data.Apiary.Param(Strategy(..))  import Data.Maybe(mapMaybe)@@ -64,7 +64,7 @@     strategy p k (map (Just . snd) . filter ((SC.pack (symbolVal k) ==) . fst) $ cookie' r) l  cookie' :: Wai.Request -> [(S.ByteString, S.ByteString)]-cookie' = +cookie' =     concatMap Cookie.parseCookies .     mapMaybe (cond (("cookie" ==) . fst) (Just . snd) (const Nothing)) .     Wai.requestHeaders@@ -78,7 +78,7 @@ -- | delete cookie. since 0.6.1.0. deleteCookie :: Monad m => S.ByteString -> ActionT exts prms m () deleteCookie k = setCookie Cookie.def-    { setCookieName    = k +    { setCookieName    = k     , setCookieExpires = Just $ UTCTime (ModifiedJulianDay 0) 0     , setCookieMaxAge  = Just 0     }