Commit 3e3f7c21 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #12925

parent e9123102
module Bug where
data Foo a x = Foo x
refoo :: Foo a x -> Foo b x
{-# NOINLINE refoo #-}
refoo (Foo x) = Foo x
{-# RULES
"refoo/refoo" forall s.
refoo (refoo s) = s #-}
......@@ -555,4 +555,4 @@ test('T12734', normal, compile, [''])
test('T12734a', normal, compile_fail, [''])
test('T12763', normal, compile, [''])
test('T12797', normal, compile, [''])
test('T12925', normal, compile, [''])
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