Servant.Server.Auth.Token.Monad

Documentation

newtype AuthHandler a

This type represents the effects we want to have for our application. We wrap the standard Servant monad with 'ReaderT Config', which gives us access to the application configuration using the MonadReader interface's ask function.

By encapsulating the effects in our newtype, we can add layers to the monad stack without having to modify code that uses the current layout.

Constructors

AuthHandler

Fields

runAuthHandler :: ReaderT AuthConfig (ExceptT ServantErr IO) a

Instances

Monad AuthHandler

Functor AuthHandler

Applicative AuthHandler

MonadIO AuthHandler

AuthMonad AuthHandler

MonadReader AuthConfig AuthHandler

MonadError ServantErr AuthHandler

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

If the value is Nothing, throw 400 response

getConfig :: AuthHandler AuthConfig

Getting config from global state

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

Getting config part from global state

runDB404 :: ByteString -> SqlPersistT IO (Maybe a) -> AuthHandler a

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