Common usage:

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

instance (ToSchema i, ToSchema a) => ToSchema (PagedList i a) where 
  declareNamedSchema = genericDeclareNamedSchema $
    schemaOptionsDropPrefix "pagedList"