diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-08-15 08:17:32 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-08-15 08:17:32 +0100 |
commit | b86d227cbc2f19a262ebfdd35a300a4ea0911a5a (patch) | |
tree | 78eb5353fb78ab844eb264b32d97190d7c4175ba /testsuite/tests/th/T5410.hs | |
parent | 3d6d96742c4626ab525c1c8a1784acbce619d152 (diff) | |
download | haskell-b86d227cbc2f19a262ebfdd35a300a4ea0911a5a.tar.gz |
Tests for Trac #5404 and #5410
Diffstat (limited to 'testsuite/tests/th/T5410.hs')
-rw-r--r-- | testsuite/tests/th/T5410.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/th/T5410.hs b/testsuite/tests/th/T5410.hs new file mode 100644 index 0000000000..da9e51aa7f --- /dev/null +++ b/testsuite/tests/th/T5410.hs @@ -0,0 +1,8 @@ +{-# LANGUAGE TemplateHaskell #-}
+module Main where
+
+$([d| instance Show (a -> b) where
+ showsPrec _ _ = showString "<function>"
+ |])
+
+main = print id
\ No newline at end of file |