1 2 3 4 5 6 7 8
{-# LANGUAGE TypeOperators #-} -- Trac #2993 module T2993 where foo b a = a <$> b . b