Servant.Server.Auth.Token.Monad

Documentation

type AuthHandler m = (HasAuthConfig m, MonadError ServantErr m, MonadIO m, HasStorage m)

Context that is needed to run the auth server

class Monad m => HasAuthConfig m where

Monad that can read an auth config

Methods

getAuthConfig :: m AuthConfig

getAuthConfig :: (m ~ t n, MonadTrans t, HasAuthConfig n) => m AuthConfig

Instances

HasAuthConfig m => HasAuthConfig (ExceptT e m)

Methods

getAuthConfig :: ExceptT e m AuthConfig

HasAuthConfig m => HasAuthConfig (StateT s m)

Methods

getAuthConfig :: StateT s m AuthConfig

HasAuthConfig m => HasAuthConfig (StateT s m)

Methods

getAuthConfig :: StateT s m AuthConfig

(HasAuthConfig m, Monoid w) => HasAuthConfig (WriterT w m)

Methods

getAuthConfig :: WriterT w m AuthConfig

(HasAuthConfig m, Monoid w) => HasAuthConfig (WriterT w m)

Methods

getAuthConfig :: WriterT w m AuthConfig

HasAuthConfig m => HasAuthConfig (ContT * r m)

Methods

getAuthConfig :: ContT * r m AuthConfig

HasAuthConfig m => HasAuthConfig (ReaderT * r m)

Methods

getAuthConfig :: ReaderT * r m AuthConfig

(HasAuthConfig m, Monoid w) => HasAuthConfig (RWST r w s m)

Methods

getAuthConfig :: RWST r w s m AuthConfig

(HasAuthConfig m, Monoid w) => HasAuthConfig (RWST r w s m)

Methods

getAuthConfig :: RWST r w s m AuthConfig

require :: AuthHandler m => ByteString -> Maybe a -> m a

If the value is Nothing, throw 400 response

getConfig :: AuthHandler m => m AuthConfig

Getting config from global state

getsConfig :: AuthHandler m => (AuthConfig -> a) -> m a

Getting config part from global state

guard404 :: AuthHandler m => ByteString -> m (Maybe a) -> m a

Run RDBMS operation and throw 404 (not found) error if the second arg returns Nothing