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

Delayed handler for Lax authentication

Browse source
This commit is contained in:
aaron levin 2015-12-19 23:50:00 +01:00
parent 1aca415ec7
commit ee1e0fe355
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
servant-server/src/Servant/Server/Internal/RoutingApplication.hs
View file

@ -183,7 +183,6 @@ addMethodCheck (Delayed captures method auth body server) new =
addAuthStrictCheck :: Delayed (AuthProtected auth usr (usr -> a) 'Strict)
-> IO (RouteResult (Maybe auth))
-> Delayed a
-- -> Delayed a
addAuthStrictCheck delayed@(Delayed captures method _ body _) new =
let newAuth = runDelayed delayed `bindRouteResults` \authProtectionStrict -> new `bindRouteResults` \mAuthData -> case mAuthData of
@ -207,6 +206,17 @@ addAuthStrictCheck delayed@(Delayed captures method _ body _) new =
(return . Route . subServerStrict authProtectionStrict) usr
in Delayed captures method newAuth body (\_ y _ -> Route y)
-- | Add a method to perform authorization in strict mode.
addAuthLaxCheck :: Delayed (AuthProtected auth usr (Maybe usr -> a) 'Lax)
-> IO (RouteResult (Maybe auth))
-> Delayed a
addAuthLaxCheck delayed@(Delayed captures method _ body _) new =
let newAuth = runDelayed delayed `bindRouteResults` \authProtectionLax -> new `bindRouteResults` \mAuthData ->
fmap (Route . subServerLax authProtectionLax)
(maybe (pure Nothing) (checkAuthLax authProtectionLax) mAuthData)
in Delayed captures method newAuth body (\_ y _ -> Route y)
-- | Add a body check to the end of the body block.
addBodyCheck :: Delayed (a -> b)
-> IO (RouteResult a)