1 2 3 4 5 6 7 8
{-# LANGUAGE ExplicitForAll, PartialTypeSignatures #-} module Bug where g,h:: forall a. a -> _ g x = h x h x = g x