path: root/testsuite/tests/th/T14646.hs

{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TemplateHaskell #-}
module T14646 where

$([d| f :: (forall a. a) -> Int
      f _ = undefined |])