к
x ^. key "status" . _String == "success"Size: a a a
к
x ^. key "status" . _String == "success"к
let hashes = take 2 $ nub $ r ^.. Wreq.responseBody
. _Array. each
. filtered (\x -> x ^. key "status" . _String == "success")
. filtered (\x -> x ^. key "deployable" . key "name" . _String == env_name)
. key "sha" . _StringAV
AV
AV
AV
AV
AV
AV
MK
D
AV
isAV
is (key "changes" . key "id" . key "previous" . _Null) x ?MK