Commit d9cb7a35 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #4816

parent 4bc936e8
{-# LANGUAGE DeriveFunctor #-}
module T4816 where
data Silly a = Sillly a
data Baz o = Baz {
foo :: o,
bar :: Silly ()
} deriving (Functor)
......@@ -24,6 +24,7 @@ test('T3965', normal, compile, [''])
test('T4220', normal, compile, [''])
test('T4302', normal, compile, [''])
test('T4325', normal, compile, [''])
test('T4816', normal, compile, [''])
test('drv-functor1', normal, compile, [''])
test('drv-functor2', 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