MP
Size: a a a
MP
YS
YS
YS
KV
makeLenses ''Q
хватит?TZ
JS
JS
ix a `adjoin` ix b
KV
JS
к
let adjoinAll =
cloneTraversal
. foldl1 (\t1 t2 -> adjoin (cloneTraversal t1) (cloneTraversal t2)) in
"{\"a\":1,\"b\":2}" & partsOf (_Value . (adjoinAll [ix "a", ix "b"]) . _Number) .~ [2,3]