Hyper.Authorization

withAuthorization :: forall c res req b a. b -> Conn req res { authorization :: a | c } -> Conn req res { authorization :: b | c }

authorized :: forall c b res req m a. Monad m => ResponseWritable b m String => Response res m b => (Conn req (res StatusLineOpen) { authorization :: Unit | c } -> m (Maybe a)) -> Middleware m (Conn req (res StatusLineOpen) { authorization :: a | c }) (Conn req (res ResponseEnded) { authorization :: a | c }) Unit -> Middleware m (Conn req (res StatusLineOpen) { authorization :: Unit | c }) (Conn req (res ResponseEnded) { authorization :: Unit | c }) Unit