AA
Size: a a a
AA
AV
AA
AA
AV
LO
class HasField x r a | x r -> a where
hasField :: r -> (a -> r, a)
AA
LO
AA
AA
к
class HasField x r a | x r -> a where
hasField :: r -> (a -> r, a)
AA
LO
KV
AA
class HasField x s t a b | x s -> a, x a -> s, x t -> b, x b -> t where
field :: Lens s t a b
AA
let r = ((val
).lengthyFieldName1
).lengthyFieldName2
AV