Commit 259533d7 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #2701

parent c3c42c3e
{-# LANGUAGE MagicHash, DeriveDataTypeable #-}
module T2700 where
import GHC.Prim
import Data.Data
import Data.Typeable
data Foo = MkFoo Int#
deriving (Typeable, Data)
T2701.hs:10:31:
Can't make a derived instance of `Data Foo'
(Constructor `MkFoo' has arguments of unlifted type)
In the data type declaration for `Foo'
......@@ -20,3 +20,4 @@ test('drvfail016',
['$MAKE --no-print-directory -s drvfail016'])
test('T2394', normal, compile_fail, [''])
test('T2604', normal, compile_fail, [''])
test('T2701', 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