Commit 91132acd authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #7906

parent 81058c95
module T7906 where
class Foo f where
foo :: f
{-# INLINEABLE foo #-}
The INLINABLE pragma for ‛foo’ lacks an accompanying binding
(You cannot give a INLINABLE pragma for a record selector or class method)
......@@ -107,3 +107,4 @@ test('T7164', normal, compile_fail, [''])
test('T7338', normal, compile_fail, [''])
test('T7338a', normal, compile_fail, [''])
test('T7454', normal, compile, [''])
test('T7906', normal, compile_fail, [''])
Supports Markdown
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