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 #-}
T7906.hs:5:16:
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, ['']) ...@@ -107,3 +107,4 @@ test('T7164', normal, compile_fail, [''])
test('T7338', normal, compile_fail, ['']) test('T7338', normal, compile_fail, [''])
test('T7338a', normal, compile_fail, ['']) test('T7338a', normal, compile_fail, [''])
test('T7454', normal, compile, ['']) test('T7454', normal, compile, [''])
test('T7906', normal, compile_fail, [''])
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