Servant.API.Auth.Token.Internal.DeriveJson

Common usage:

data PagedList i a = PagedList {
  pagedListItems :: ![a] -- ^ Payload
, pagedListPages :: !Word -- ^ Count of available pages
} deriving (Generic, Show)

$(deriveJSON (derivePrefix "pagedList") ''PagedList)

It will work with the following jsons:

{ "items": [], "pages": 0 }

Documentation

derivePrefix :: Text -> Options

For aeson deriving, drop prefix t and map to lower

deriveJSON :: Options -> Name -> Q [Dec]