apiary-authenticate 0.14.0 → 0.14.1

raw patch · 3 files changed

+8/−8 lines, 3 filesdep ~apiaryPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: apiary

API changes (from Hackage documentation)

Files

• apiary-authenticate.cabal +2/−2
• src/Web/Apiary/Authenticate.hs +1/−1
• src/Web/Apiary/Authenticate/Internal.hs +5/−5

@@ -1,5 +1,5 @@ name:                apiary-authenticate-version:             0.14.0+version:             0.14.1 synopsis:            authenticate support for apiary web framework. description:   example: <https://github.com/philopon/apiary/blob/master/examples/auth.hs>@@ -21,7 +21,7 @@                        Web.Apiary.Authenticate.Explicit   other-modules:       Web.Apiary.Authenticate.Internal   build-depends:       base                 >=4.6   && <4.8-                     , apiary               >=0.14  && <0.15+                     , apiary               >=0.14  && <0.16                      , apiary-clientsession >=0.9   && <0.14                      , authenticate         >=1.3   && <1.4                      , http-client          >=0.3   && <0.4

@@ -40,7 +40,7 @@ withAuthWith ms ac m = E.withAuthWith given ms ac (\a -> give a m)  -- | default auth handlers. since 0.8.0.0.-authHandler :: (Functor n, MonadIO n, HasAuth) => ApiaryT c n m ()+authHandler :: (Functor m, Monad m, Functor n, MonadIO n, HasAuth) => ApiaryT c n m () authHandler = E.authHandler given  -- | filter which check whether logged in or not, and get id. since 0.7.0.0.

@@ -23,12 +23,11 @@ import qualified Web.Apiary.Wai as Wai  import Data.Binary-import Data.Data+import Data.Data (Data) import Data.Maybe import Data.List-import Data.Default.Class-import Data.Apiary.Proxy import Data.Apiary.SList+import Data.Apiary.Proxy  import Blaze.ByteString.Builder import qualified Data.ByteString.Char8 as S@@ -75,7 +74,7 @@ withAuthWith sess s conf m = Client.withManager s $ \mgr ->      m (Auth mgr conf sess) -authHandler :: (Functor n, MonadIO n) => Auth -> ApiaryT c n m ()+authHandler :: (Functor m, Monad m, Functor n, MonadIO n) => Auth -> ApiaryT c n m () authHandler Auth{..} = retH >> mapM_ (uncurry go) (providers config)   where     pfxPath p = function id (\_ r -> if p `isPrefixOf` Wai.pathInfo r then Just SNil else Nothing)@@ -137,7 +136,8 @@     (oirParams r)     (identifier <$> oirClaimed r) -returnAction :: MonadIO m => Session -> Client.Manager -> S.ByteString -> S.ByteString -> ActionT m ()+returnAction :: (Functor m, MonadIO m)+             => Session -> Client.Manager -> S.ByteString -> S.ByteString -> ActionT m () returnAction sess mgr key to = do     q <- Wai.queryString <$> getRequest     r <- liftIO . runResourceT $ authenticateClaimed (mapMaybe queryElem q) mgr