TZ
Size: a a a
TZ
AA
eta ведь сумел что-то выкатить относительно рабочееTZ
YR
makeFields ''SomeShit, создать FromJSON такой, который бы повторял имена этих нагенеренных fields?AP
YR
data SomeShit = SomeShit {
_someShitAge :: Int
}
makeFields ''SomeShitто поле будет age, но вот если дерайвнуть дефолтный FromJSON, то едва ли он будет ожидать в словаре ключ "age". Или?MK
YR
where parseJSON = do
let prefix = typeOf (undefined :: SomeShit) & show & fromAny & toCamel
strip = fromMaybe "" . stripPrefix prefix
genericParseJSON defaultOptions { fieldLabelModifier=strip }
MK
AP
_someShitAge -> age с помощью опций сделать можноMK
_someShitAge -> age с помощью опций сделать можноMK
YR
AP
YR
IK