Commit de246aad authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #7007

parent 64cf9423
module T7007 where
import Data.Monoid( Monoid(..) )
infixr 5 ++ -- This unambiguously refers to the local definition
(++) :: Monoid a => a -> a -> a
(++) = mappend
...@@ -191,3 +191,4 @@ test('T5867', ...@@ -191,3 +191,4 @@ test('T5867',
multimod_compile, ['T5867', '-v0']) multimod_compile, ['T5867', '-v0'])
test('T6027', normal, compile, ['']) test('T6027', normal, compile, [''])
test('T6120', normal, compile, ['']) test('T6120', normal, compile, [''])
test('T7007', 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