apiary-clientsession 0.11.0 → 0.11.1

raw patch · 3 files changed

+7/−12 lines, 3 filesdep −taggeddep ~apiarydep ~apiary-cookiePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies removed: tagged

Dependency ranges changed: apiary, apiary-cookie

API changes (from Hackage documentation)

Files

• apiary-clientsession.cabal +3/−6
• src/Web/Apiary/ClientSession.hs +1/−2
• src/Web/Apiary/ClientSession/Internal.hs +3/−4

@@ -1,5 +1,5 @@ name:                apiary-clientsession-version:             0.11.0+version:             0.11.1 synopsis:            clientsession support for apiary web framework. description:   examples:@@ -27,8 +27,8 @@   other-extensions:       build-depends:       base               >=4.6   && <4.8                      , bytestring         >=0.10  && <0.11-                     , apiary             >=0.9   && <0.12-                     , apiary-cookie      >=0.9   && <0.12+                     , apiary             >=0.9   && <0.13+                     , apiary-cookie      >=0.9   && <0.13                      , clientsession      >=0.9   && <0.10                      , time               >=1.4   && <1.5                      , data-default-class >=0.0   && <0.1@@ -38,9 +38,6 @@                      , cprng-aes          >=0.5   && <0.6                      , base64-bytestring  >=1.0   && <1.1                      , http-types         >=0.8   && <0.9--  if impl(ghc < 7.8)-    build-depends:     tagged             >=0.7 && <0.8    hs-source-dirs:      src   ghc-options:         -O2 -Wall

@@ -26,7 +26,6 @@ import Data.Reflection import qualified Data.ByteString as S import Control.Monad.Apiary.Filter.Internal.Strategy-import Data.Proxy  type HasSession = Given I.Session @@ -46,7 +45,7 @@ csrfToken = I.csrfToken given  session :: (Functor n, MonadIO n, Strategy w, Query a, HasSession)-        => S.ByteString -> Proxy (w a)+        => S.ByteString -> proxy (w a)         -> ApiaryT (SNext w as a) n m b -> ApiaryT as n m b session = I.session given 

@@ -20,7 +20,6 @@ import Web.Apiary.Cookie import Web.Apiary.Cookie.Internal import Web.ClientSession -import Data.Proxy import Data.Maybe import Data.Time import Data.Default.Class@@ -129,8 +128,8 @@                            }  session :: (Functor n, MonadIO n, Strategy w, Query a) => Session-        -> S.ByteString -> Proxy (w a) -> ApiaryT (SNext w as a) n m b -> ApiaryT as n m b-session sess k p = focus $ \l -> do+        -> S.ByteString -> proxy (w a) -> ApiaryT (SNext w as a) n m b -> ApiaryT as n m b+session sess k p = focus id $ \l -> do     r   <- getRequest     t   <- liftIO getCurrentTime     let mbr = readStrategy readQuery ((k ==) . fst) p@@ -141,7 +140,7 @@            => Session            -> ApiaryT c n m a            -> ApiaryT c n m a-checkToken sess@Session{..} = focus $ \l -> do+checkToken sess@Session{..} = focus id $ \l -> do     r <- getRequest     p <- getReqParams