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

{-# LANGUAGE TemplateHaskell #-}
module Main where

$([d| instance Show (a -> b) where
         showsPrec _ _ = showString "<function>"
  |])

main = print id