# Pastebin kGdxXJIa
attrsIf :: a -> [(Getting Bool a Bool, Attribute)] -> [Attribute]
attrsIf x p = snd <$> filter (flip view x . fst) p