path: root/testsuite/tests/simplCore/should_compile/T18399.hs

module Bug where

f :: p b d -> (a -> b) -> (c -> d) -> p a c -> p b d
{-# INLINE f #-}
f = const . const . const