AV
Size: a a a
AV
MK
AV
AV
AV
YS
class HasValueE a whereЯ лучше отрывки кода покажу наверное)
hasqlValueE :: E.Value a
---
class Encodable a where
encodeToHasql :: E.Params a
instance HasValueE a => Encodable (Maybe a) where
encodeToHasql = nullableParam hasqlValueE
---
instance (Encodable a, HasValueE a) => Encodable (Pagination a) where
encodeToHasql =
(paginationValue >$< encodeToHasql)
<> (paginationSorting >$< encodeToHasql)
<> (paginationOffset >$< encodeToHasql)
<> (paginationLimit >$< encodeToHasql)
<> (paginationFieldName >$< encodeToHasql)
AV
YS
instance Decodable (Customer Identity) where
decodeFromHasql =
Customer
<$> decodeFromHasql
<*> decodeFromHasql
<*> decodeFromHasql
AV
YS
YS
YS
YS
AV
AV
AV
ЮБ
YS
AV