Как применить несколько FieldLabelModifier к рекорду ? пытаюсь вот так data From

Question

Как применить несколько FieldLabelModifier к рекорду ? пытаюсь вот так data From

= From {
id :: Int
, firstName :: Maybe String
, username :: Maybe String
, isBot :: Maybe Bool
, kind :: Maybe String
}
deriving stock (Show, Generic, Eq)
deriving (ToJSON, FromJSON)
via (CustomJSON '[
FieldLabelModifier (Rename "kind" "type"),
FieldLabelModifier CamelToSnake,
SumUntaggedValue ]
From)

но работает только первое

#haskell #programming #russian

0

27.01.2022

5 ответов

24 просмотра

Cheese Syrowiecki

никак, это в библиотеке aeson не предусмотрено. надо писать сериализацию руками. хотя... можно попробовать скомпозить два generic сериализатора с разными конфигами

0

28.01.2022

Cheese Syrowiecki

Anton Sorokin
Тупл FieldLabelModifier (a,b) (или тайплевел списк...

погодите. это не aeson?

0

28.01.2022

Anton Sorokin

Cheese Syrowiecki
погодите. это не aeson?

Это deriving-aeson

0

28.01.2022