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

Minimal complete definition

getAuthConfig

Methods

getAuthConfig :: 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