Commit 0e1e7987 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #10524

parent ceb3c844
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE PolyKinds #-}
module T10524 where
import Data.Data
newtype WrappedFunctor f a = WrapFunctor (f a) deriving (Data, Typeable)
T10524.hs:7:58: error:
No instance for (Typeable WrappedFunctor)
arising from the 'deriving' clause of a data type declaration
GHC can't yet do polykinded
Typeable (WrappedFunctor :: (k -> *) -> k -> *)
Possible fix:
use a standalone 'deriving instance' declaration,
so you can specify the instance context yourself
When deriving the instance for (Data (WrappedFunctor f a))
......@@ -54,3 +54,4 @@ test('T9071_2', normal, compile_fail, [''])
test('T9687', normal, compile_fail, [''])
test('T8984', normal, compile_fail, [''])
test('T10524', 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