eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Export the auth stuff for jwt

Browse source
This commit is contained in:
Arian van Putten 2015-10-01 13:45:59 +02:00 committed by aaron levin
parent 51a68bd60d
commit a76b1f9e90
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-server/src/Servant/Server/Internal/Authentication.hs
View file

@ -13,6 +13,8 @@ module Servant.Server.Internal.Authentication
, basicAuthStrict , basicAuthStrict
, laxProtect , laxProtect
, strictProtect , strictProtect
, jwtAuthHandlers
, jwtAuth
) where ) where
import Control.Monad (guard, (<=<)) import Control.Monad (guard, (<=<))
@ -133,5 +135,5 @@ jwtAuthHandlers =
-- One can use strictProtect and laxProtect to make more complex authentication -- One can use strictProtect and laxProtect to make more complex authentication
-- and authorization schemes. For an example of that, see our tutorial: @placeholder@ -- and authorization schemes. For an example of that, see our tutorial: @placeholder@
jwtAuth :: Secret -> subserver -> AuthProtected (JWT UnverifiedJWT) (JWT VerifiedJWT) subserver 'Strict jwtAuth :: Secret -> subserver -> AuthProtected (JWT UnverifiedJWT) (JWT VerifiedJWT) subserver 'Strict
jwtAuth secret subserver = strictProtect (return . JWT.verify secret) jwtAuthHandlers subserver jwtAuth secret subserver = strictProtect (return . JWT.verify secret) jwtAuthHandlers subserver