packages feed

servant-auth 0.4.1.0 → 0.4.2.0

raw patch · 2 files changed

+17/−16 lines, 2 filesdep ~aesondep ~basedep ~containersnew-uploaderPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: aeson, base, containers, lens, servant

API changes (from Hackage documentation)

- Servant.Auth: data Auth (auths :: [*]) val
+ Servant.Auth: data Auth (auths :: [Type]) val

Files

servant-auth.cabal view
@@ -1,6 +1,6 @@ cabal-version:  2.2 name:           servant-auth-version:        0.4.1.0+version:        0.4.2.0 synopsis:       Authentication combinators for servant description:    This package provides an @Auth@ combinator for 'servant'. This combinator                 allows using different authentication schemes in a straightforward way,@@ -9,16 +9,16 @@                 'servant-auth' additionally provides concrete authentication schemes, such                 as Basic Access Authentication, JSON Web Tokens, and Cookies.                 .-                For more details on how to use this, see the <http://github.com/haskell-servant/servant/servant-auth#readme README>.+                For more details on how to use this, see the <https://github.com/haskell-servant/servant/tree/master/servant-auth#readme README>. category:       Web, Servant, Authentication-homepage:       http://github.com/haskell-servant/servant/servant-auth#readme+homepage:       https://github.com/haskell-servant/servant/tree/master/servant-auth#readme bug-reports:    https://github.com/haskell-servant/servant/issues author:         Julian K. Arni maintainer:     jkarni@gmail.com copyright:      (c) Julian K. Arni license:        BSD-3-Clause license-file:   LICENSE-tested-with:    GHC ==8.6.5 || ==8.8.4 || ==8.10.4 || ==9.0.1+tested-with:    GHC==8.6.5, GHC==8.8.4, GHC ==8.10.7, GHC ==9.0.2, GHC ==9.2.7, GHC ==9.4.4, GHC ==9.10.1 build-type:     Simple extra-source-files:     CHANGELOG.md@@ -33,13 +33,13 @@   default-extensions: ConstraintKinds DataKinds DefaultSignatures DeriveFoldable DeriveFunctor DeriveGeneric DeriveTraversable FlexibleContexts FlexibleInstances FunctionalDependencies GADTs KindSignatures MultiParamTypeClasses OverloadedStrings RankNTypes ScopedTypeVariables TypeFamilies TypeOperators   ghc-options: -Wall   build-depends:-      base                    >= 4.10     && < 4.16-    , containers              >= 0.6      && < 0.7-    , aeson                   >= 1.3.1.1  && < 3-    , jose                    >= 0.7.0.0  && < 0.10-    , lens                    >= 4.16.1   && < 5.1-    , servant                 >= 0.15     && < 0.20-    , text                    >= 1.2.3.0  && < 1.3+      base                    >= 4.14     && < 4.21+    , containers              >= 0.6      && < 0.8+    , aeson                   >= 2.0      && < 3+    , jose                    >= 0.10     && < 0.12+    , lens                    >= 4.16.1   && < 5.4+    , servant                 >= 0.20.2   && < 0.21+    , text                    >= 1.2.3.0  && < 2.2     , unordered-containers    >= 0.2.9.0  && < 0.3   exposed-modules:       Servant.Auth
src/Servant/Auth.hs view
@@ -5,6 +5,7 @@ {-# LANGUAGE TypeOperators              #-} module Servant.Auth where +import           Data.Kind           (Type) import           Data.Proxy          (Proxy(..)) import           Servant.API         ((:>)) import           Servant.Links       (HasLink (..))@@ -13,21 +14,21 @@  -- | @Auth [auth1, auth2] val :> api@ represents an API protected *either* by -- @auth1@ or @auth2@-data Auth (auths :: [*]) val+data Auth (auths :: [Type]) val  -- | A @HasLink@ instance for @Auth@-instance HasLink sub => HasLink (Auth (tag :: [*]) value :> sub) where+instance HasLink sub => HasLink (Auth (tag :: [Type]) value :> sub) where #if MIN_VERSION_servant(0,14,0)-  type MkLink (Auth (tag :: [*]) value :> sub) a = MkLink sub a+  type MkLink (Auth (tag :: [Type]) value :> sub) a = MkLink sub a   toLink toA _ = toLink toA (Proxy :: Proxy sub) #else-  type MkLink (Auth (tag :: [*]) value :> sub) = MkLink sub+  type MkLink (Auth (tag :: [Type]) value :> sub) = MkLink sub   toLink _ = toLink (Proxy :: Proxy sub) #endif  -- ** Combinators --- | A JSON Web Token (JWT) in the the Authorization header:+-- | A JSON Web Token (JWT) in the Authorization header: -- --    @Authorization: Bearer \<token\>@ --