diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-24 12:29:35 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-24 12:29:35 +0100 |
| commit | 2c363f48737e50341446b47bf5d87f43f4ae971b (patch) | |
| tree | 50753bbb22d6bdf632bc0053346bf294db95cabe | |
| parent | 677a3ab296dc220656c1cdfd8e7fb72d9f6ae8b6 (diff) | |
| download | haskell-2c363f48737e50341446b47bf5d87f43f4ae971b.tar.gz | |
Extend test for Trac #2713 (cf Trac #6120)
| -rw-r--r-- | testsuite/tests/th/T2713.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/th/T2713.stderr | 6 |
2 files changed, 8 insertions, 1 deletions
diff --git a/testsuite/tests/th/T2713.hs b/testsuite/tests/th/T2713.hs index 77eb704b1c..980d499603 100644 --- a/testsuite/tests/th/T2713.hs +++ b/testsuite/tests/th/T2713.hs @@ -4,6 +4,9 @@ module Fixity where class MyClass a where
(.*.) :: a -> a -> a
+f x = x
+
$( [d| x = undefined |] )
infixr 3 .*.
+f :: Int -> Int
diff --git a/testsuite/tests/th/T2713.stderr b/testsuite/tests/th/T2713.stderr index a2528885ee..16f130c65a 100644 --- a/testsuite/tests/th/T2713.stderr +++ b/testsuite/tests/th/T2713.stderr @@ -1,4 +1,8 @@ -T2713.hs:9:10: +T2713.hs:11:10: The fixity signature for `.*.' lacks an accompanying binding (The fixity signature must be given where `.*.' is declared) + +T2713.hs:12:1: + The type signature for `f' lacks an accompanying binding + (The type signature must be given where `f' is declared) |