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

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

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