:: a -> (a -> b) -> b -package:rio -package:ghc -package:optics-core package:funcmp