HTTPurple.NodeMiddleware

newtype MiddlewareResult :: forall k. k -> Typenewtype MiddlewareResult input

Constructors

• MiddlewareResult (Record MiddlewareResultR)

Instances

• Newtype (NodeMiddlewareStack input output) (MiddlewareResult input -> ContT (MiddlewareResult output) Effect (MiddlewareResult input))

type MiddlewareResultR :: Row Typetype MiddlewareResultR = (middlewareResult :: NextInvocation, request :: Request, response :: Response)

type NextHandlerArg = Undefined |+| Error

data NextInvocation

Constructors

• NotCalled
• ProcessingFailed Error
• ProcessingSucceeded

Instances

• Generic NextInvocation _
• Show NextInvocation

newtype NodeMiddleware :: forall k. k -> Typenewtype NodeMiddleware extended

Constructors

• NodeMiddleware (EffectFn3 Request Response (EffectFn1 (UndefinedOr Error) Unit) (Effect Unit))

Instances

• Newtype (NodeMiddleware extended) _

newtype NodeMiddlewareStack :: Row Type -> Row Type -> Typenewtype NodeMiddlewareStack input output

Constructors

• NodeMiddlewareStack (MiddlewareResult input -> ContT (MiddlewareResult output) Effect (MiddlewareResult input))

Instances

• Newtype (NodeMiddlewareStack input output) (MiddlewareResult input -> ContT (MiddlewareResult output) Effect (MiddlewareResult input))

callNext :: EffectFn1 NextHandlerArg Unit -> Effect Unit

callNextWithError :: EffectFn1 NextHandlerArg Unit -> Error -> Effect Unit

class UsingMiddleware :: Row Type -> Row Type -> Row Type -> Constraintclass UsingMiddleware input thru output | input thru -> output where

Members

• usingMiddleware :: NodeMiddleware thru -> MiddlewareResult input -> ContT (MiddlewareResult output) Effect (MiddlewareResult input)

Instances

• (Union input thru tmp, Union tmp tmp2 output) => UsingMiddleware input thru output

dontCallNext :: forall (m :: Type -> Type). Applicative m => m Unit