Commit 5e4fb4ff authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #2713

parent 259e6689
{-# LANGUAGE TemplateHaskell #-}
module Fixity where
class MyClass a where
(.*.) :: a -> a -> a
$( [d| x = undefined |] )
infixr 3 .*.
T2713.hs:9:9:
The fixity signature for `.*.' lacks an accompanying binding
(The fixity signature must be given where `.*.' is declared)
...@@ -116,6 +116,7 @@ test('TH_ghci1', normal, ghci_script, ['TH_ghci1.script']) ...@@ -116,6 +116,7 @@ test('TH_ghci1', normal, ghci_script, ['TH_ghci1.script'])
test('TH_scope', normal, compile, ['']) test('TH_scope', normal, compile, [''])
test('T2632', normal, compile, ['']) test('T2632', normal, compile, [''])
test('T2700', normal, compile, ['-v0']) test('T2700', normal, compile, ['-v0'])
test('T2713', normal, compile_fail, ['-v0'])
test('T2386', extra_clean(['T2386_Lib.hi', 'T2386_Lib.o']), test('T2386', extra_clean(['T2386_Lib.hi', 'T2386_Lib.o']),
run_command, run_command,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment