clippings-0.1.3: src/Data/Functor/Extras.hs

module Data.Functor.Extras (
  (<$$>),
  for
) where

(<$$>) :: (Functor f, Functor g) => (a -> b) -> f (g a) -> f (g b)
(<$$>) = fmap fmap fmap

for :: Functor f => f a -> (a -> b) -> f b
for = flip fmap