1 2 3 4 5 6 7 8
{-# LANGUAGE ConstraintKinds, RankNTypes #-} module T8807 where import Data.Proxy foo :: $( [t| forall a b. a b => Proxy a -> b -> b |] ) foo = undefined