Servant.API.UVerb

An alternative to Verb for end-points that respond with a resource value of any of an open union of types, and specific status codes for each type in this union. (UVerb is short for UnionVerb)

This can be used for returning (rather than throwing) exceptions in a server as in, say '[Report, WaiError]; or responding with either a 303 forward with a location header, or 201 created with a different body type, depending on the circumstances. (All of this can be done with vanilla servant-server by throwing exceptions, but it can't be represented in the API types without something like UVerb.)

See https://docs.servant.dev/en/stable/cookbook/uverb/UVerb.html for a working example.

Documentation

data UVerb (method :: StdMethod) (contentTypes :: [*]) (as :: [*])

A variant of Verb that can have any of a number of response values and status codes.

FUTUREWORK: it would be nice to make Verb a special case of UVerb, and only write instances for HasServer etc. for the latter, getting them for the former for free. Something like:

type Verb method statusCode contentTypes a = UVerb method contentTypes [WithStatus statusCode a]

Backwards compatibility is tricky, though: this type alias would mean people would have to use respond instead of pure or return, so all old handlers would have to be rewritten.

class KnownStatus (StatusOf a) => HasStatus (a :: *)

Associated Types

type StatusOf (a :: *) :: Nat

Instances

HasStatus NoContent

If an API can respond with NoContent we assume that this will happen with the status code 204 No Content. If this needs to be overridden, WithStatus can be used.

Defined in Servant.API.UVerb

Associated Types

type StatusOf NoContent :: Nat

KnownStatus n => HasStatus (WithStatus n a)

Defined in Servant.API.UVerb

Associated Types

type StatusOf (WithStatus n a) :: Nat

statusOf :: forall a proxy. HasStatus a => proxy a -> Status

class HasStatuses (as :: [*]) where

Associated Types

type Statuses (as :: [*]) :: [Nat]

Methods

statuses :: Proxy as -> [Status]

Instances

HasStatuses ('[] :: [Type])

Defined in Servant.API.UVerb

Associated Types

type Statuses '[] :: [Nat]

Methods

statuses :: Proxy '[] -> [Status]

(HasStatus a, HasStatuses as) => HasStatuses (a ': as)

Defined in Servant.API.UVerb

Associated Types

type Statuses (a ': as) :: [Nat]

Methods

statuses :: Proxy (a ': as) -> [Status]

newtype WithStatus (k :: Nat) a

Constructors

WithStatus a

Instances

MimeUnrender ctype a => MimeUnrender (ctype :: Type) (WithStatus _status a)

Defined in Servant.API.UVerb

Methods

mimeUnrender :: Proxy ctype -> ByteString -> Either String (WithStatus _status a)

mimeUnrenderWithType :: Proxy ctype -> MediaType -> ByteString -> Either String (WithStatus _status a)

MimeRender ctype a => MimeRender (ctype :: Type) (WithStatus _status a)

Defined in Servant.API.UVerb

Methods

mimeRender :: Proxy ctype -> WithStatus _status a -> ByteString

Eq a => Eq (WithStatus k a)

Defined in Servant.API.UVerb

Methods

(==) :: WithStatus k a -> WithStatus k a -> Bool

(/=) :: WithStatus k a -> WithStatus k a -> Bool

Show a => Show (WithStatus k a)

Defined in Servant.API.UVerb

Methods

showsPrec :: Int -> WithStatus k a -> ShowS

show :: WithStatus k a -> String

showList :: [WithStatus k a] -> ShowS

Generic (WithStatus k a)

Defined in Servant.API.UVerb

Associated Types

type Rep (WithStatus k a) :: Type -> Type

Methods

from :: WithStatus k a -> Rep (WithStatus k a) x

to :: Rep (WithStatus k a) x -> WithStatus k a

(Generic (WithStatus n a), ToJSON a) => ToJSON (WithStatus n a)

Defined in Servant.API.UVerb

Methods

toJSON :: WithStatus n a -> Value

toEncoding :: WithStatus n a -> Encoding

toJSONList :: [WithStatus n a] -> Value

toEncodingList :: [WithStatus n a] -> Encoding

(Generic (WithStatus n a), FromJSON a) => FromJSON (WithStatus n a)

Defined in Servant.API.UVerb

Methods

parseJSON :: Value -> Parser (WithStatus n a)

parseJSONList :: Value -> Parser [WithStatus n a]

KnownStatus n => HasStatus (WithStatus n a)

Defined in Servant.API.UVerb

Associated Types

type StatusOf (WithStatus n a) :: Nat

type Rep (WithStatus k a)

Defined in Servant.API.UVerb

type Rep (WithStatus k a) = D1 ('MetaData "WithStatus" "Servant.API.UVerb" "servant-0.18.1-8AzI7G0HY4mJiHzrohUrBF" 'True) (C1 ('MetaCons "WithStatus" 'PrefixI 'False) (S1 ('MetaSel ('Nothing :: Maybe Symbol) 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 a)))

type StatusOf (WithStatus n a)

Defined in Servant.API.UVerb

type StatusOf (WithStatus n a) = n

module Servant.API.UVerb.Union