писать
prepareUrlMap url jsonPairs =
[ (gameName, imgUrl)
| (gameName, value) <- jsonPairs
, let entries =
value ^.. cosmos . _String . filtered (not . Text.isInfixOf "redacted") . filtered isValid
, let toUrls = sortNub $ mkUrls <$> entries
, imgUrl <- toUrls
]
Может, ими не пользуются, потомушта они в плохой код дешугарятся?
ими пользуются
я не задолбался prepareUrlMap _url = concatMap (\(gameName, value) -> let entries = value ^.. cosmos . _String . filtered (not . Text.isInfixOf "redacted") . filtered isValid toUrls = sortNub $ mkUrls <$> entries in map (gameName,) toUrls) но с компрехеншеном всё равно лучше
Обсуждают сегодня