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 +11/−11
- src/Servant/Auth.hs +6/−5
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\>@ --