idRightF :: F a b -> F (Either a c) (Either b c) idLeftF :: F a b -> F (Either c a) (Either c b) toBothF :: F a (Either a a) throughF :: F a b -> F a (Either b a) bypassF :: F a a -> F a a stubF :: F a b -> F c d
idRightF f = f >+< idF idLeftF f = idF >+< f